


Institutional Archive of the Naval Postgraduate School 





Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations 1. Thesis and Dissertation Collection, all items 


1987 


The completed Management Information 
System for the Monterey Navy Flying Club. 


Graham, James M. 


http://ndl.handle.net/10945/22216 


This publication is a work of the U.S. Government as defined in Title 17, United 
States Code, Section 101. Copyright protection is not available for this work in the 
United States. 


Downloaded from NPS Archive: Calhoun 


Calhoun is the Naval Postgraduate School's public access digital repository for 
| (8 D U DLEY research materials and institutional publications created by the NPS community. 
«ist Ser Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 


NY KNOX appointed — and published -- scholarly author. 

ies) LIBRARY Dudley Knox Library / Naval Postgraduate School 

411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 





http://www.nps.edu/library 


D e 
b L) 
. 
F uy U i A 
. i 
A fa) i 
i oe) 
s Fd i] 
Ci 
® 6 Poe) 
® 
U % 8 ie 
Cy LJ 
A A 4 wr | ‘ 5 
° 7? | 
O 2 4 
A a 
. r A , a , 
F had 
se iu ! 29 de 
ar i 
+ oe 
| ee) 
® VE 
a) 5 Li iY ee 
id an 
Py oa i 
5 
: . 
+ 
e U r "7 : 
ee! at : a | 
e t tT a 
a J ‘ 
e A . i ” 
ee * UI 
=o 1), 
ry CI a} e 
td Pe e » 
oy a? , 
; hs 5 : i 
3 a 
. tf LY r , Co ! 
o } Py r id 
ea e as 
a Aah o i 
A i 7 
N L Yaar) Gi Wr 
F a Os Tt 
rd r 
% ty ey 
o ny i | as 
, sh 
a bd & 7 Cy Ai 
‘ a) 4) 
A t “fa ] 
oF ‘ : nat | 
. : + ‘ " 
ry al 
Ms cu Oa 
® 
i Cy 1 
e 
e 
" bf 
A) 
b | yh? 
oF bd ‘ 
5 Al 
ee | n 
. 4 * . 
of ¥ ® Y ta) 
03 i 
- . 
Js bs soe 
- i 
Wi * ap dha v8 
A i Cl 
r 4 yy 
A Po 
e LS i 
¢ U in) 
i ) : 7, eae f 
e te a 
A * b] e 
A ry i 2. . er ° baat 1d 
5 : a * re 
ho J ry | ’ ae 
« A a t we al 
. « * i “8 
Ca ry A 
, A Pan ; > ees 
o os « - 
ao a i ° . é a a ' 
« oe ° cd r oy 
A 5 . f ‘5,93 Fad 
e ‘ a e- 
« . - ¢ ] os 
i ’ ‘ 
- Y 
a F P « a J J . 
- ie ry ee r ; ' ' 
: F - 
c D 8 t st 
rs Py rs i ol . 
q e i] ty 
ve r) a, 1 re UA 
Cy LP e i . a 1 
: . ¢ 
ry ° ar a oa FI 
ae’ sed Cn Pe Oa) 
A waee 
° t ry 2 wie ok ee cha 
: ae rf rs LF er 
° r ae ra . r * P 
A © ¢« fd A a PT 
oO OD , ea irs a ow) . 
« a a iy 3 
ay e i or ta 
Or) oa 
Fy ) A A O Cf tr 
sy r) J e Cr f 
® . rd ¢ Jee! Nearer; Ci er a] a) . 
. An Loomer ae 2 
rT e Py r Py an | 
Ld o Cd af O 
Ce an Cd 
: 5 A t . e 
ar) a) rs Ff e 
Cs a o . é 0 
« * ° os ba ] * Cr ses | 
Fa 7 +4 re oe 
« ¢ A a er aa . 
Me er) cy ed if 
Ly rad * ri 
« ¢ . iM L a a 
5 Si 
OD Fs 7 i 
0 i ra td 
S ef e8- O 
tf) ov « o 3% 
a rt i e 5 oo 
oy f ri) an) - 3 
a b eee ia 
re é e oy Py 
i e 
« ar | ° tt 
° a 
é . 8 v 5 6 ur 
¢ ot 
O ri i ° 3 ‘ , 
« 8 . 4 . U te 
A e ry eect » 8 ry i] 
e e . 7 a i ty 
D ee Le a re oe 
. hed 7 e rd 
« Cd ri . ¢ ob at 
? ae 7 
ry Ld 
® . ge Pr z 5 
or) e Pe 
‘ ° ‘ ) z 
A rn) « é o> - a “ rm 
B ' é a ° 
« ¢ ed F a Ce oe ied P. a 
ti ' A ee i 
A iu ce Pe 2 
oy . 6 8 Ca ae ry D 
r Pac ny tC a ob fe a 8 
Py . ‘ Tw 
D o ar ae | Par) 
a) a a e i . La) Car ie « 
e 34 Se) e . ry ‘ a) - » 
« ° a ¢ Ld ? e «8 P] 
« r % 8 s rd Fe) “ . = 4 ’ 
« i rd « 
‘ Oo rw F a Popd ot a bee 
° ) e Pa ts ‘se ee 
ry « a) r] e e . é f A b e iu #. 
. LY ’ C e- 
e ; ’ D i . i . of 
. a i a | a de Py 
rn = Ps roa ee rn os) 
8 . 
L a) ¥ : iy Dae 
* epee a 6 
re H « i i a | 
Cr | Po o M Ld : 
a Cy i é e so 
9 . 1 i) 
« ty e 6 e ° 
of Pe | a 
ee i ty 
| c 
8 td Fd oo rz by 
i] , ee EJ 
e é ee 
O 
if , 2 
i ' r) y 
° r U b | 
8 " ri | r 
- 8&8 e 5 Ld s 
a ¥ ‘ 
8 bd ¢ 8 i 
fi L 
ty é F ra ' tt 
ee . 
Pr * 
uy ee F 5 e 4 
t 8 s « 
F "| 
rn) MH 7 r Py $ e 
‘ t 
. Cd * r 
o 
* é é ry é te 
ra i 8 . 
Cd PY) ry a Lj ka 
Od an 
e r - 
r r t | 
ry ri 
ry é . nC 
8 
7 
c 
ty \ a 
r oe 
ry 6 fai 3 
Cid « oT 
rd 
e ® , 


a] 


Pet a oa Elerlets 
ee pak gy oat 


oS Ke 009, iby 


tr oh RA Pa 


Meare 


44 
oe 
"| ri 


ia 


7 





” ies or bai 


oes oe peor 
Ct Ot wy ee poe etre See 


a ey re 
ie ed yn 


eRe 
a) 


rll eh, 


+ 


oy -_ | 








e% my i] 





a ti bbs Caer 
geet A is 


wt) eoree 
cee wees bor ker hes corer 
hye rh ‘um a 


rs aoware Chior seals. 
Re Cr ee Ete een 


Th Pry eyou ite 

ode eas 

Cf 1 
Ly 


ray 

Be 2 
yA poetry pe 
Stee ier Teer) se ) 


porbry iat erent or 
ee 
arr Ane Cty ers 


ea 
ae ees 


Te Ue) as 


= « rt 
re wane S ee Ty tere ery 
ae Ak 4 
TTL) 
| Wey 


as : Bas Srna, a vent 
= ee aa 





or ey) 
"he 


3 Siti 
LT oo 





C Oe ye etd ae 
es Tyler 
ey 


o L ] 
te @Fe Witt ie pea 


Cy L Pry i) 
hs Pgh 


a) 
PY} 


















ae 
as. 





Cy 

dl ee J ne ~~ 
aed Es Ph yrafed ° 

LB Aa 

s , % 

Cs ty wr 

? UN ee 

uf ort aT) 

ot “epi bes at 

de elas 

) eo 
ay 


oy) Pry 


areas Oe we 
Lsprty OO Let TOO aT 


t 
. Rane eo oro ae 


« 
roc ey ae be be cedeos 
Seas ore TA) Sage 
ere 2% 


aX AS eR ae 
o >.8 


wy 
h 





mal 






ery Ci chk 4 
at Cohaka: 







Py a 
Pa aN 
A Ha fd by, 
ot y ee rT ry aft eee “alates party work Lt Pritt re art ae 
¥ vlow an 4 ay sae iy Teeth OAL M Tak 
ho gege t 
rye re ot praieebed 
a~ ee Pre ie) AG 
e ef ad Ce ee WY ry or, LT hat bye) pusrrry ey was cpp a8 Hig « Stee 
f Ce og ro ee a one 
th Aiby4 Ce CY Pat e Lee a Ue DP sen ae ies Py khl et TN 
Pat i Lok th kd 
7 tan eh 
rhc tet +P 0 eee oats er see 
hl Cay in CANT Tt raat Dee 
ag ee od rere wer ey Setar 
a) r zy rs etae = Rd Dh teed 
tk Sve ~ 
ey Ty a e ochre Cd Sonn cr oe 
Sheet 0 rd oy 5S een 
e esue Be} » be er Te hg Lee hr So - Bee Ba eed Cr ea 
Ta a + ag slew re Pek aror Pw) en preg ee 
Chk ol bois! My To rogers 
Cer i ee er ee 
Aa 
cate hat 
0 ed) Ret en 
Bisa ; . ‘My Onze) (or4 Ce rah ee aac 
r. i o sara ~ eae 
. oe) take by ~ Se 
ae a. NEU O AO oy tu ae Spey tata bth las 
ee Pe dD 
ie re du wdetert eo even afe a 
oe 1 * 3-8 mh 
f Saar anes a aan ene aeahe 
, me La oe) Fao 
b oO re er . 
xs bt * Lae 
gs tus ri oa oe w we wr oe Phe Sey at "eve 9: Ar Brrr ie 
? 4X ae PAS Cra ag by haps 
& Reo CS ~ Voy Sas ed be Sai fae erate cf 
LM ted de he ee OY Pe ee YY gaan Pte a Cues 
i, Sy ta eg te | an Seon ie a AAAS mex hh i 
ye oy * Py te 
a RASC ih 
y a? 


@ 0 aad 8 oe 
i i | 
. ’ ly 
> tte’ OGG sgl OLE se Sette oe 
att Tate 
Oe ae YO ae ee ee C0 ry OTP da nae he 
ee bated Parodi EON Age 
- 
fea Sees pat ek , 27% 9.08. & 0 as beet Ty coy’ 
torre oe 8 a ay Hr ine 
aN on ah e Rs te é 
® eh nye Ce 
rer Gee oo cre Uy Saree 
oe ee ee! Aes yy Ay} 
Tere ey note La 
bit Paya A Py 
pha a aN «UT 
. Aye 5 ate Moe Dr re Cet ot © tet ee WS ulaprre ryt Athy ee 
ait Moth ate et 
, bf . enor) he | Poe oat.) 
uy ® 
Lindh Lean ’ LM A a oat on Curent Pages ar yee y 
. oh 
, “yd ms Ae er 3 
Pa sl Sattar a 403 4 weet kee’ ® 
eZ 
ROR LS Fak he 
4 Cn re ee 
. CI Re 


eT satis 
oo 


5 ae Ch 
ap! er) 
ppd Fs aya 


orate egy ae oem 
Pras 
isa Be . oe 


Ra 


Seat t Over 
tae bet! 
ee 
TU Chel Lhe iy OT) Cy) 
gpl © mt =9, rtrd ML re 
Cr e) 
bd 
2/9 & Papal. py rrp) Ce el TL A eae ee Bk) errr Ay) ert h 
DEA eR Tt a ae CR te eee or 
Pe o . ° ry 
ao » wo at pte oh 9 teen Lota A “T 
>u eo ante Ped eo 
2 pT * tho hd eee gh beled 
Rie mre pea See Si pee 
Pre ees be ee be 
Oat ra, 
rk ted 4 oy hehe hr 
bet” Fay 
at a) tt 
npr barney 
Cats. @ eT far Whe 5 a) era ae Sh eae 
iP ry . om . 
> ay * ORC ee? moan ba eee. as 
Li me Sta port ee POL Lion Oa hee eT 
deb LRRD he er 
Pe Lob hh 
ye Si Stee 
Ce ie de eure iat ae tH SLR ad v7) 2 
C4 od ee IAS tt Pa er me Toh co erin ated Fi 
a oe 
eee 
Saree avye & 
“ La ay Ls 
sigalg sated a 
me. a Ben Pe NG 
y che 


rer 


oe 
He wea aes 


a Fs te LS 


A on 


Rs Debs) 


EE 
s at ee 
ee cs ss 


a - 


pee 


teeth lad 


rey Ne 


cvs ae 
Cae Si yi 









sae 
Pir 4 art 


a ne 


ee hae fare 


et) ot 
wah > Sa CS 


Lon 
fe . i ~ pik 


ees 


AC 


as 
Scr 


Peet oe ce 
+ ae ‘ 


i, a aA < 
Ree 


. 


he : 








ae 


hoe 
a 








; Ptah . 
eS 


" 


i 


nen, 


ae 7 4 
ht P aes Pate ae 


ORE ee ee 


et. 


eg aS oe ct 


2a a'r ewrrre i= 
ng pa Sad ad = Cade 


” 
— Ai 


Pig 
Poe io 
nee - 


» Cd ee ode 


7 ANd 


hee 


‘fel aa 
* 


oe 





Hg e nh Pe 
*: ety f i her psp 

er ard ares ES anet Pita ay Pt ak ee oe 
Eee Sl eat ee A A teat Ll ot ot 
Cate ake a at pare ot ot a wewrrwry 
a A Pr ofa a Ye ae LS 
o rar laden cag add og 

be ii alg La ies) 


(i 
ner 


ne 


fou 
Lae 
Oe Rone Co 


Se Cr ol 
Sl bts is 


oy i Pie eeeeo 


Oe ie mn 
Fond or pre eee 
pap a 
ge e eWnane 


is | # bedres re a 
Oy 
vive? hatin 


fwe -*, 
Pal ad ta te Fd al 
PE Ti) A Det 
pie Sito 


+ 

un Bg pl reer 
an ye Hi heer hee Pad ta aee ma 
is 


- os 
eects ie wee th AIT SSE. 


Be VOL Loteent ie ao 8 shyt ze: 
La Lhe 
Suid” 4 Fr £ 
cd rv 
ad 


Ay 
Bonus 
Cd 


; aa | 

r pocayiee Het 

Er eae pares 
OR a 

oe gee aw 

Th i 

ee PA 

C OR Gl: 
Aa a 


At, at pets oe 
a 
ete if ri seh Pt ee oe ee ee 
te tw wer al 


- 
ape. ” ghy is we 
ae eile es TAIL ELE 
OTe Me oe eed a at dn told Ce ee 2 
i L tial ples a ® 7 Ok oP ed Ls 


a BH Ar 
ee 
BY aig ig ple ra oor AR Ge 4 
ct en 


ad hua fi 
Piha 
ie 4 


som 


if ieee Py Arf (moa! aol Les pe 
ao " 
Pe ea I oe See rl 


fa a cm) 
SS ke i Par Ca hd anes Cd ad 
r AAA AD mag Bites whe bees 


bd Fl oe 
# ASL pe ae ee p ok a 
es PTR ees ffi ee ot lt ee ed ee 
tot ad ps Po ree Pet eon tits ae 
CS ot Roda ne 
savas ai 9 ma: ETE had Pe Aen aed a) : 
OTT A oe lah te 
id A ok we ok eo 
mrt oe ik ght aasce> ey bee ger Cer ee: 
Wr rey Ly CHL IR ch get te Ah gm Fe Ie ate 
r ve Pf yt Hy anes a wo ones ea a A ve Fi gt ae ye Sout reli 
are Be rs 
ele 


4 e 
sig tet Ra Cn Pate 


ed ae Pd A ol eh oad ak tO ol A dh eh oh tll 
Ages bad ol oa pats nae et FE J erga 
ek ake a det he fer eves oe rs 
As rere PS =e oe di ad errre Foe raed UD ate 
Peer tee) wee errre ct TS alaty a ae pat eg 
TRveFCi rvs os segs bd a Bey Ae ak ala 


af oy ety 
Pe eA) 

wr jnir-ap eee pert Pa a 4) ei ee 

eH Pet rr PE RY ant PHO K DO PUT Pow 


PORE IR ee Pie ata eee 


CP 
VVPRCare HOt usd 
a A ak a hs eed ners ge He hth bt ahadl Erk Didi 
1 ee Al Syasnee fe oe Pts: oF eves etal 
ee ee he oe oe ee at 

Pre te) pe A) Cerrrre PEs 
hi did Zit) ey, LN re) 


Pa 
Ca 


eee 


pater 





oe 
ruled o pdt 
ee a a ad Ladd 
a ree Deere Rica 
re Ay inp 


ert a CR 
gh Li 


a 























NAVAL POSTGRADUATE SCHOOL 


Monterey, Galifornia 





feat >1S 


THE COMPLETED MANAGEMENT INFORMATION 
SYSTEM 
FOR THE MONTEREY NAVY FLYING CLUB 


by 


James M. Graham 


March 1987 


Thesis Advisor Barry A. Erew 





Approved for public release; distribution is unlimited. 


ay = es yw = m2 ony 
Fs ey \ § 
J 7 9 





unclassified: 
TECURITY CLASSIFICATION OF THIS PAG 


REPORT DOCUMENTATION PAGE 


1g REPORT SECURITY CLASSIFICATION 1b. RESTRICTIVE MARKINGS 
M@uclassified 


da SECURITY CLASSIFICATION AUTHORITY 






3 OISTRIBUTION/ AVAILABILITY OF REPORT 
Paspceved tor public release; 
Gestripuation 1s unlimited. 








Ib DECLASSIFICATION / OOWNGRADING SCHEOULE 


4 PERFORMING ORGANIZATION REPORT NUMBER(S) S$ MONITORING ORGANIZATION REPORT NUMBER(S) 


Bo OFFICE SYMBOL 7a NAME OF MONITORING ORGANIZATION 


(if epplicadle) 


54 







3a NAME OF PERFORMING ORGANIZATION 


Bival Postgraduate School Naval Postgraduate School 








a ADORESS (City, State, and ZIP Code) 7o. AOORESS (City, State, and ZIP Code) 






Monterey, California 93943-5000 Monterey, California Oreo oe 5.0) O10 





8b OFFICE SYMBOL 9 PROCUREMENT INSTRUMENT IOENTIFICATION NUMBER 


(if applicable) 


la NAME OF FUNOING/ SPONSORING 
ORGANIZATION 














ic ADORESS (City, State, and ZIP Code) 10 SOURCE OF FUNDING NUMBERS 


PROGRAM PROJECT TASK 
NO NO 


ELEMENT NO 
1 TITLE (include Security Classitication) THE COMPLETED MANAGEMENT INFORMATION SYSTEM FOR THE 
MONTEREY NAVY FLYING CLUB 









WORK UNIT 
ACCESS:ON NO 







2 PERSONAL AUTHOR(S) Graham James M 
? me 


Bree OF REPO : 130 TIME COVERED 14 DATE OF REPORT (Year, Month. Day) |1S PAGE COUNT 


§ SLPPFLEMENTARY NOTATION 


bo 
th 
(© 







? COSATI CODES 18 SUBIECT TERMS (Continue on reverse if necessary and identify dy dlock number) 
F&O | GROUP |  $U8-GROUP Management Information System; MIS Prototype; 


— | © Limited Decision Support System; Relational 
it SC*dCDattabase Application 


9 ABSTRACT (Continue on reverse if necessary and idenufy by block number) 





This thesis provides a completed Management imzormation Syseen for 
the Monterey Navy Flying Club. The software package was designed to 
operate upon an IBM PC-XT or PC-AT or 100% compatible MaiGcmoconeuce: 
Meich has 384K of main memory. Specific hardware requirements are 
discussed in chapter one. This software package supplies the necessary 
tools for the club manager to maintain all club records and generate 
required administrative and financial PeDOr eS. Decision-making 
assistance is provided to the club manager and its Board of Directors by 
combining the system generated reports and the relational database 
Capabilities of the R: Base 5000 language. 


0 OSTRIZSUTION/ AVAILABILITY OF ABSTRACT 21 ABSTRACT SECURITY CLASSIFICATION 
MOeNctassitigouunumiteo CO) same as Ret Cloric users unciassirle 


Ja NAME QF RESPONSIALE INDIVIQUAL 22 TELEPHONE (Include Area Code) | 22¢ OFFICE SYMBOL 
| Brot. Barry oF Tew 408) 646-2924 Code 54Fw 


. 
1) FORM 1473, 84Mar 83 APR edition may de used until exnausted SECURITY CLASSIFICATION OF THIS PAGE 
All other editions are obsolete Wine lasso me Led 
iE 


Approved for public release; distribution 1s unlimited. 


The Completed Management Information System 
for the Monterey Navy Flying Club 


by 


. James M. Graham 
Lieutenant Commander. United States Navy 
B.S., University of Southern Mississippi, 1975 


Submitted in partial fulfillment of the 
requirements for the degree of 


MASTER OF SCIENCE ENGIN ET OR MA TIONS 1 SUENIS 


from the 


NAVAL POSTGRADUATE SCHOOL 
March 1987 


ABSTRACT 


This thesis provides a completed Management Information Svstem for the 
Monterey Navy Flving Club. The software package was designed to operate upon an 
IBM PC-XT or PC-AT or 100% compatible microcomputer which has 384K of main 
memory. Specific hardware requirements are discussed in chapter one. This software 
package supplies the necessarv tools for the club manager to maintain all club records 
and generate required administrative and financial reports. Decision-making assistance 
is provided to the club manager and its Board of Directors by combining the system 


generated reports and the relational database capabilities of the R:Base 5000 language. 


THESIS DISCLAIMER 


The reader is cautioned that computer programs developed in this research may 
not have been exercised for all cases of interest. While every effort has been made, 
within the time available, to ensure that the programs are free of computational and 
logic errors, they cannot be considered validated. Any application of these programs 


without additional verification is at the risk of the user. 


AIT. 


TABLE OF CONTENTS 


BAM OT PLOOM NNN i ce th te ee ea ewes cet eeeees il 
eC GOTO Nn se ec ee ha ete eee ee 11 
Ee Mine eomeeeC CINCOM a. sce ee eee tee eee i] 
ere) emo OREO d VS i. 4... ete ee he ee ces 12 
a meen landgemenwintOrmation System ..........5....... 2 
Pe Seren SUP POM pedoloMly Gar... es eee ee se te 13 
Pe | iO MOO GMO ee. i Ee etc eee te ee eee eee 13 
bre rs Ol TE Wie INdhS) 4... Sake. hc ce eee ee. I4 
F SPEC BVI Rey Eee... 2 se ns cee eee eee eee i4 
ee ee SAIOING Ot POR PACKING (igi ike vee eee ee 15 
Beem re SiMe RVers PRN edls cc ek he be ee eee ee eee 17 
Oleg INGO DMG MON cc cc ee eee ec ee ae 17 
IP PAW hS al GU INCe Meccan te TT as Se se ek SN kde eee eee 17 
Peinceanalystand User Inteniecon and Exenanges ............ 17 
eS One owl wietOhOM INE SULTS . iio. . SOR... eee. 18 
PS COMMIS IMMINCOMIRCIIEINES Fi... eo cc eee ees eee eee ee 18 
ORO SCSI Me Ese ONSURAINGS . 55... <006o0 se. uc detec se caese 19 
Ce henry bey Ob olhe COMPLETED DESIGN .2.............. 19 
Ee SUOMI OCG MD CSICT tary, fo rere ce kia s Gas ce see cue 19 
ZO ed ONeEMISIONS ANG MCSION ...... eee cee ebb ee cece eee. 20 
Sey cincationvor User ReqminementsSs:..... 2.200 e Gece eee eee 21 
Pere nerm Gute WD eee ee eG bases sc ee ves Wee es eee ewes 22 
ee Cull ON: eee eee ee. eee. . 22 
neotenic bop ROG BOLINES S32... 2 .4hass.... eee ear 22 
[Pe cli secmsigirawem ReEGuirement ...................... 2a 
PP iialanOOTAIMUOAGING es cs ney sce ees cc tt ee ct ee Z3 
SP oom e eTePATAUlONS. . .. 1.6 - 1 es ede see c ewe eee 24 


C. DATABASE TNPITALIZA TION Wee eer en ee 24 


|. Initialization Requirements 7.7) .m ene 24 
2. Initialization@Bpoceduses®. 2 ¢ameer< ... 5-0. ee 25 
3.. Finalize Initializationsas: -<.- cee ie 26 
D. MINFC MIS PROTOQMYPE OPERATIONS...) 222 26 
[. ailenu Driven System) 2.5 33s ee eee 26 
2. ‘MNEC Selections <2. 2232522 5) eee... anne i 
3. Editing; Deleting Screens”. 12. | 22 eee er 34 
4.. Screen Enter Forms .. .esereeewnepeet cs eee 35 
Ek. SYSTEM BACK-UP AND DATABASE REPACKING ......... 36 
F. EXITING THE MNFO@RROTO Gree ee ee 36 
G. MAINTENANCE <2. .25.2.25.4. ee eee 37 
lave AUTOMATED CODING VS MANUAL GODRS3... 2 eee 38 
A. INTRODUCTION 2333 ee eee 38 
B.. APPLICATION EXPRESS ce eee ee 38 
l. Overview 2.0. iy .2gGad eee oa: ee 38 
2. Operations Available 22 ea eee yiieeeee ene ree 38 
3. Limitations Imposed <.. . 43a ee 39 
4. Future Advancemieniisi. .-. .. ae eee ee 40 
C. THE APPLICATION EXPRESS AND MANUAL 
CODING COM BUNA TIOIN Ss. ccc te ia: eee 4] 
Ve CONCLUSIONS AND RECONIMENDA TI @ Noe eee 43 
A. SUMMARY so c5 eee ee eee 43 
B. PROJECT RESULTS oon eee eer yee 44 
C. SUGGESTIONS FOR RBWURE RESEAR Cle see eee 45 
I. System Implementation and Future Maintenance............ 45 
2. Possible Decision Suppport «22... ~ ee 46 
APPENDIX A: DATA FLOW DIAGRAMS 33) en 49 
APPENDIX B: . SYSTEM REPOR ES AND S17 Alley (Ee ee Ta 
APPENDIX CC: (MNEFC DATA DIGTIONA Rag eee eee 2S 


Pee Ds De MODULE FUNCTIONAL DESCRIPTIONS .............. 129 


INTUIBCSIIE RGIS one cnc s cede ede ce cecsacececse 129 
PSEC Se DPT osc cae cc cee ce se neceaes 131 
SMEG INPAIEP 8)... cs cnclec ce ceccsceccececeeces 131 
FM TON nea SP a ss babe ee cde ceccace 135 
GMGIDOIDMEISD- APP... ... ace vcs ccdecsevevscstertievsvess 137 
APPENDIX E: FLYSTART AND CLUB_MIS SOURCE CODE ........... 139 
PEPENDIX F: CLUB_FINSOURCE CODE......................eeeee- 149 
PEPENDIX G: CLWB PRT SOURCE CODE ................-.eceeeeees 192 
MPPENDIX H: CLUB END SOURCE CODE ................-.ececeeeee 207 
Ms) OF REFERENCES .00 00.0... cece cece cece cecevceuceceueevess 226 
GRETA cece cece e csc etveccecececeececeas 227 
BPMN DISURIBUTION LIST ..298,......... cee csccececcccccececccss 228 


l. 
2 


LIST OF TABLES 


REQUIREMENT CATEGORIES nee ener ee 


SUBMISSION SCHEDULES 


eoeetet eet @ 6 @ 6@6mcthmUhOO fo Fe ee emhUhOHhUCUh HhUCUhhUCUchO Uh HhUhhUCUchFTmhUCUhMPmhUh}H FC FH FC FCF CS & &€ 6& F&F F&F © 6 @ 


bl 
Bal 
3.2 
Ses 
3.4 
Bb.) 
3.6 
oy 
3.8 
3.9 
3.10 
onl | 
Bel2 
3.13 
3.14 
A.1 
A.2 
A.3 
A.4 
A.5 
A.6 
A.7 
A.8 
A.9a 
A.9b 
A.9c 
A.10 
A.ll 


LIST OF FIGURES 


RW aiemne Mise rOlOuvmerSVSteIOVELVIEW . 2.625... e cee ck ete eee eee 
By mw cs cc ees cc se wc ee ce ce cee tage vee 


PlcIilbers Imemunamsactions {Brancheylenu) i. ....26...6 05sec tee eee ees e 


fmenictlmeamsactions (branGmanientl) . i246. sags ss edd eee eee ee ok 
Pwradnacen se pdate Entry sub-Branch) ae. » . eas eeu wate «oe 


PE amoceoneet Adjustment (Sub-Branch) -. © 246).% = siwaieeciceseauanapaiens . . - « | 


ieee statement Adjustmentisub-Branch)  . « ssiasaacdeeiss «esses s+ 
Poiemasnew Financial Transaction {Sub-Branch)...........--s6s.s+....-. 
ane iDelete an Exisune Pindncial lransaction (Sub-Branch) .............. 
IteINe DOTS StAleIMeMmisd pramenmMienll) .....64454-..4.-- 6 sds s eee es 
Pimiceeummoimistrative Reports (sub-Branch) ...... MW... oe ese cee ee ee. 
RaMiamiginianictal Reportsiomlee Brame). ...,--.. +s eee. s+. 15.50 Hee es 
eM xmnuidlaiNepOrt INPUts (Smetana. ....... eRe... 
Endeai-the-wronth [ransactions (Branch M enw) saae seston ers we sos 
Post and Prepare Monthly Billing (Branch et a aera ere... ac 
Monterey Navy Flying Club MIS (Level zero) ......0.cceceeeeeeeeeuees 
RatOvCtcy miciyay salmon rN COVCL OTC) ©. . « « <cccaisueusisueueunieus a + + + euggsis +s 
RPaimG MMC MaVININIE @ INCCORGS Gants 6404 6% s)s nc + v-susiiene + cactuoes os eo see 0 


Palen amG@t ome Gil ember RECOLGS ee sidered eres we cgsdeec cee eeceeees 5 


Fame CSSIMCMNGTINO GIs CO MALCC SMCC(S cc cc ees tte ee cee stp eeees eee 
PVC SG EL AVINGTCS MMMMIEMes 8. ces sy es SUNN. 1 ce Gibbs wr bu oa 8 
NaeecssiiOm IAN @ PF UnciaSe sm ama t. uae 4s as G 285 . RS os Ga eee hee 
ISCO CMMOCNI Na @e Lc NGIAUSHIC 29s. oie: cle ¢ siccs ae 'eg oan as eae cv eelslee eae 
Immo eessine the emd-ol-the- Month [ransactions .......«0s.............. 
eGcessing the tngd-ol-tie- vi Ohthmuransactions (COM t) sce. sane. ss - 
Processing the End-of-the-Month Transactions (con't) ............eee0e: 
MEMMUaNInIICe NITCLAll INMEMUOGY ANG OCAUUS -ociee en cee eet acess asi. 


PMI AMM EANMIDCMCMCCME NUT 5. oc cungt oe. tune 0 0 ccc cers cess stdensesss 


31 


52 


A.12 
A.13 
A.l4 
A.15 
A.16 
A.17 
A.18 
A.19 
A.20 
A.2l 
A.22 
A.23 
A.24 
GZS 
B.1 
B.2 
B.3 
B.4 
Be 
B.6 
B.7 
B.8 
Bee 
B.10 
B.lla 
B.11b 
B.12a 
B.12b 
Bets 
B.14 
C.1 
C2 
CS 


Additions and Deletions to Aircraft Inventory =... ..2 ee 63 
Generation of Reports and Statements 7... een 64 
Generation of MembershipmRi@steics ween per err 65 
Generation of Aircraft Inventory and Status Report... .....)... eee 66 
Generation of Monthly Manager s Report25 see 67 
Generation of Aged Accounts Receivacle Report... ee ee 68 
Generation of Instructor Statements (7 sere 69 
Generation of Member Statements ayer. oon 70 
Generation of Lessor Statements’... . mee 2 ee 71 
Generation of Income Statements”... . . ramen een V2 
Generation of Balance Sheets .. 227 -- << se 0 eee a 
Generation of Membership Breakdown Reporte 74 
Generation of Annual Operating Keports .. 22a a5 
Generation of the Annual Summary of Insurance Kepomt (722... ee 76 
Monterey Navy Flying Club Membership Roster... 2)... pre 79 
Aircraft Inventory and Status Report ..........¢eee ee 80 
MNFC Monthly Managers Report............9......,.0:7 81 
MNFC Aged Accounts Receivables Report... 0... ..- 82 
MNEC Monthly Instructors Statement... 09... . ou) «eee 83 
MNFC Monthly Members Statement 72... eee ener 84 
MNFC Monthly Lessors Statement 2.22 = ae ees ee 85 
MINFC Income Statement ..... 222.55 3: eee eee ee 86 
MNFC Balance Sheet... . cscs ec 0 0 ec 87 
MINFC Membership Breakdown Sunimary Repont] 3). jee 88 
Annual Operating Statement - Balance Sheet... ... 20)... 89 
Annual Operating Statement - Balance Sheet (cont) .....-..... ae 90 
Annual Operating Statement - Income Statement... eee a 
Annual Operating Statement - Income Statement {¢on t) 9007). 22 
Annual Statement of Net Worthen ae aac ce Se 93 
Annual Summary of insurance Coverage 72) 94 
MINFC System Hierarchy Chart 4247555 ee eee 95 
M'INFC System Hierarchy Chart (com ()ias eee 96 
MNEC System Hierarchy Chart (cont)... eee 97 


10 


I. INTRODUCTION 


A. ORGANIZATION 

The Monterey Navy Flying Club is a non-profit organization located at the 
Monterey Peninsula Airport in Monterey, California. The club is officially sponsored 
by the Naval Postgraduate School (NPS) of Monterey and governed by a Board of 
Directors. Club administration 1s conducted by the club's manager who is responsible 
to the Board of Directors and Commanding Officer, NPS. All administrative and 
financial activities are conducted in accordance with FAA regulations and flight 
procedures, and instructions from the Department of Defense and the offices of Chief 
of Naval Operations (CNO). 

The Monterey Navy Flying Club currently processes all administrative and 
financial records manually, with the exception of one accounts receivable computer 
program to process membership billing. Maintaining accurate club membership and 
financial records is a time consuming and demanding task for one individual to 
accomplish. In addition to the typical administrative records, the club manager must 
maintain detailed records on aircraft maintenance, operating costs, and membership 
flight status. From these separate files, data is drawn monthly and annually to prepare 
numerous administrative and financial reports for submission to the club’s Board of 
Directors, the NPS Superintendent, and CNO/MWNPC. 


B. THESIS BACKGROUND 

As one of the largest Navy sponsored flying clubs, the Monterey Navy Flving 
Club’s membership and flight activities are numerous. To assist in effectively and 
efficiently managing the large volume of administrative and financial functions 
conducted by the club manager, an initial Management Information System (MIS) was 
designed and implemented [Ref. 1]. The initial MIS prototype provided limited 
assistance to the manager. A completed version, one capable of handling common 
financial transactions, maintaining membership data and flight status, recording aircraft 
maintenance activities and costs, and producing the numerous required reports, was 
desired. The system would also provide a historical database from which the club 
manager could recall statistical and financial data to assist in the club’s strategic 


planning or in response to inquiries from higher authority. The system’s standard 


1] 


reports will provide this limited decision-making support initially. The completed MIS 
prototype and associated relational database establish the foundation from which to 
implement a separate and detailed Decision Support System (DSS) application 
(program). 


C. GOALS AND OBJECTIVES 
The goals and objectives of this prototype Management Information Svstem 
(MIS) are twofold: first, to provide a functioning Management Information Svstem for 
the MNFC Manager's use and second, to provide an environment capable of exploring 
the feasibility of developing practical Decision Support Modules for the MNFC’s use. 
1. MNFC Management Information System 
A functional MIS is intended to assist the MNFC Manager in maintaining 
club records, producing specific reports, significantly reducing manual duplications, 
Operations, and time. The prototype MIS will handle current financial and 
admunistrative tasks. The following tasks/products will be performed/prepared by the 
system: 
a. Daily Processing 
* Membership Entry and Deletion 
* Membership Charges and Payments 
* Club Purchases and Payments 
* Aircraft Maintenance Status 
b. General Administration 
* Prepare Member Roster 
* Maintain Aircraft Inventory and Status 
* Generate Manager's Monthly Report 
c. Financial 
* Aged Accounts Receivables 
* Member’s Monthly Statement 
* Instructor's Monthly Service Statement 
* Lessor’s Monthly Statement 
—) Balance Snecet 
* Income Statement 
d. Annual Report Inputs 
* Membership Breakdown 


* Operating Statement 
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* Statement of Net Worth 
* Summary of Aircraft Insurance Coverage 
2. Decision Support Feasibility 

The completed MIS and associated database will be used to explore the 
possibility of developing initial decision support modules to assist management in 
decision-making processes. Simple queries from the user will be emploved to gain 
access to the various data and formulate decision support responses. 

Cash transactions will not be addressed since the MNFC does not handle cash 
on a normal basis. Neither is inventory management of individual flight accessories 
nor aircraft repair parts implemented within this MIS. Any item from above can be 
incorporated at a later date using the R:Base 5000 software, if determined to be 


necessary. 


D. METHODOLOGY 

The initial prototype design for the management of the Monterey Navy Flying 
Club (VENFC) was functionally divided into two areas: (1) Manage the club’s records 
and (2) Generate the required reports [Ref. 1]. 

The assessment of this original design and testing of a partial management 
information system for the MNFC [Ref. {] will be discussed in Chapter II. The 
remaining logical design structure necessary to fully implement the MIS is presented in 
the data flow diagrams of Appendix A which graphically define the processes and 
associated data listed in Appendix C. 

To satisfy the administrative requirements placed upon the manager of the 
MNFC [Ref. 2], the various system products are displayed in Appendix B. The User's 
Guide, located in Chapter III, provides the user a step-by-step guide to investigate the 
menu-driven system, and to experiment with the various system operations. 

A sampling of the current MNFC database will be installed within the MIS 
prototype. The MIS functions described in detail in Appendix D will be tested. Upon 
a successful verification of the prototype’s operations, Decision Support queries will be 
designed and tested. Chapter V will amplify the results of these and other efforts, and 
implications concerning the completion of the MNFC MIS. 
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E. SYSTEM REQUIREMENTS 
To operate the MNFC MIS the following hardware is required: 


* IBM PC-XT, PC-AT, or 100% compatible microcomputer 
* DOS, VERSION 2.0 or highter 


* A hard disk and one or two double-sided, 


double-density 5.25-inch floppy disk drives 


* 384K of main memory with at least 347K available 
after system configuration (system processing 
speed is considerably enhanced if 640K of main 


memory 1s available) 
* Color or monochrome monitor 


* Printer, with large carriage for handling oversize 


printed forms, or capable of compressed printing 


The Monterey Navy Flying Club’s prototype Management Information System 
was developed utilizing the following Microrim, INC., of Bellview, Washington, 


software: 
R:Base 5000 Database Management System 
R:Base Series Extended Report Writer 


F. SYSTEM OVERVIEW 

The Monterey Navy Flying Club Management Information Svstem Prototype, 
Version 2.0, is an interactive, user friendly, menu-driven system. The intended user's 
(the club Manager) man-machine interface in through a series of screen displayed 
menus allowing the selection of various administrative and financial functions (see 
Chapter ITI, the User’s Guide). | 

The overall system design is based upon one relational database accessed by five 
functionally separate application programs. As can be seen in Figure 1.1, each 
application not only interfaces with the database, FLYCLUB, but also interacts with 
the initial calling application, FLYSTART. The individual functions performed by 
each application are listed in Chapter III, the User’s Guide, with each module’s 
function discussed in detail in Appendix D. 
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Figure 1.1 MNFC MIS Prototype Svstem Overview. 


All svstem products are designed to be printed on a printer capable of interfacing 
with an [BM compatible personal computer and either has a long carnage or a 
compressed print capability. The statements can be printed on preformated forms or 
letter head paper. All reports are considered roughs for the Manager's review and use 
as necessary. The system will allow the user to exit the R:BASE environment and 
return to the computer's operating system with the choice of the appropriate menu 
selection. 

The R:BASE 5000 language is easily accessible for the advanced user and can be 
used to conduct custom searches and displays of data to cover those data inquiries not 
implemented in the current prototvpe. All database entries are stored at the 


completion of each function and the data history files are posted monthly. 


G. DECISION SUPPORT PACKAGE 

Through its standard products and data manipulation, the current MNFC MIS 
Prototype system provides a limited and structured decision support capabilitv. The 
original system design allows for a separate application (program) to access the 


relational database and conduct both standard and ad hoc inquiries (question and 
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answer sessions). This inquiry capability would give the Monterey Navy Flying Club 
Manager and its Board of Directors abilities such as, evaluate expenses versus revenue 
trends, investigate and establish membership trends, examine flight hour usage versus 
aircraft inventory, and perform budgetary forecasting. The actual Decision Support 
System (DSS) package can be designed and implemented using a combination of 
R:BASE basic language, R:BASE Clout, and gateway capable software to broaden the 


scope of inquiries and data manipulation. 
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I. MIS SYSTEM 


A. ANALYSIS INTRODUCTION 
1. Analysis and Review 

In order to complete the desired objective of a final product capable of 
handling both the financial and administrative affairs for the Monterey Navy Flving 
Club (MNFC), the original software design, a partial implementation, developed bv 
CDR. D. R. George [Ref: 1] required a second review/anavlsis to ensure that all user 
specifications Were still current and accurate. 

Both the physical and logical designs of the MNFC Management Information 
System (MIS) prototype were examined. These assessments were compared to the 
present MNFC physical operations, and resulting revisions and newly defined software 
requirements were obtained. Upon completion of an initial design, the author and 
manager of the MNFC conducted extensive system design reviews to ensure that the 
logical representations truly depicted the desired and current club functions. 

Emphasis was placed upon the completion of the financial and annual 
reporting functions of the MNFC MIS. To enhance user friendliness, revisions in 
areas such as menu selection, entry formats and output formats to the original design 
were conducted. The final expectation for the prototype has not been altered. 

2. The Analyst and User Interaction and Exchanges 

As in any software analysis and design, perhaps the most critical problem 
facing the analyst is ensuring the user’s requirements and desires are known. Quite too 
often neither the user nor the system analyst knows what is really required or desirable 
ef. 3). 

Prototype design fosters greater user interaction in the software design and 
helps prevent the development and delivery of software systems that do not satisfy the 
user's real needs. 

During the fourteen discussions and working sessions held by the author and 
MNFC manager, existing man-machine interfaces, software products, and operational 
procedures were reviewed. Over the course of these exchanges, the originally designed 
menus were altered to better meet the user’s preception of the software function to 


logical operation. The resulting menus are located in Chapter III. The existing 
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product outputs of the Management Information System were modified to meet both 
new and revised requirements. Current product examples can be seen in Appendix B. 
These exchanges provided an excellent communication medium for the author 
to present output alternatives to the MNFC Manager. This gave the manager the 
Opportunity to see the proposed system products and reassured him that his needs and 
desires were truly being understood and met. This demonstrated the author’s sincere 
effort to accommodate the user's wishes: thereby, creating a better environment for 
further communications concerning the development of the Management Information 


System prototype. 


B. SECOND ANALYSIS RESULTS 
1. System Design Requirements 
a. Areas to Redesign 
Upon the completion of the author’s initial analysis and review, redesign 
of the following areas in the original design were evident: 

(1) Logical Design. 
* General DFD revisions 
* Financial/Administrative interfaces 
* Additions and Revision of tables 

(2) Man-Machine Interface. 
* System Start-up procedures 
* Menu title changes 
~sEeNtiveOl Te@CGUnime events 
* Svstem Data Saving 
* System Recovery 

(3) Product Outputs. 
* Deletion of the Dispatcher Report 
* Redesign of the Member Roster 
* Revise the Lessor Statement 
* Enchance the Member Statement 

b. Areas Remaining to be Designed 
To complete the Monterey Navy Flying Club (MNFC) Management 


Information System prototype, the following areas required design and development: 
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(1) Logical Design. 

* Financial operations 

* Product Output Generation 

* Administrative/ Finance interface 

* Aircraft Maintenance and inventory 

* MINFC Purchases and Payments 

(2) MIS Products. 

* Balance Sheet 

* Income Statement 

* Operating Statements 

* Statement of Net Worth 

* Summary of Insurance coverage 

* Membership Breakdown 

* Aged Accounts Receivable Report 

* Aircraft Inventory & Status Report 

* Managers Monthlv Report 

2. System Design Constraints 
One of the kev objectives in the design was to develop a svstem that was user 
friendly. Normal operations are to be executed in a fast and efficient manner, allowing 
the user to spend the least amount of time at the keyboard. This required some data 
redundancy within the various database table designs. The execution of some 
operations; 1.e., the posting of reoccurring events, are accomplished at the printing of 
the system product, and causes some time delay, but does not require the presence of 
the user. 
The svstem itself requires the use of a hard disk to reduce storage and overall 

system execution time requirements. Therefore, hard disk utilization provides adequate 
disk growth space and eliminates the need for multiple floppy disk changes; thus, 


improving user friendliness and ease of operation. 


C. OVERVIEW OF THE COMPLETED DESIGN 
1. Resulting Logical Design 
The Data Flow Diagrams (DFD) contained in Appendix A represent the 
logical design necessary to implement the Monterey Navy Flying Club (MNFC) MIS 


prototype software for current and expected physical functions of the club. As seen in 
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Figure A.1, the MNFC’s interaction is restricted to three major outside forces: (1) the 
club manager’/staff, (2) club members, and (3) service vendors. Upon further reveiw of 
the club’s operations one notices in Figure A.2 that the overall system is divided into 
two major functional areas: (1) maintaining club administrative and financial records 
and (2) generating required reports. 

Figure A.3 through Figure A.25 graphically present the individual club 
functions necessary to maintain the daily operations of the club and to produce the 
system products exhibited in Appendix B. Future maintenance personnel will be able 
to use the DFD’s to ensure the logical operations are consistent with the physical 
operations, as changes to club routines and procedures occur. 

2. Physical Revisions and Design 

The Monterev Navy Flying Club (MNFC) does not handle, on a regular basis, 
any cash transactions. All members and vendors rendor or receive payment by check. 
Statements are issued monthly to members, instructors, and lessors. The original 
prototype software design was altered to eliminate all cash transactions. 

The elimination of cash operations did not abolish the requirements for 
recording the club’s financial interactions with the public. Club purchases and 
pavments are now incorporated within the newly designed financial operations. 
Inventory of flight supplies, fuel, etc. can now be monitored. Revenues from sales are 
posted with expenses, so net income (loss) can be calculated. 

Lessors were once given credit for flight hours flown on their aircraft. Due to 
a recent policy change, lessors are now charged for aircraft rental just as a regular 
member (a/c rental cost are no longer deducted from the amount owed lessor). The 
Lessor Statement was changed to reflect this change in club policy. Another policy 
change prompted the removal of the Dispatcher’s Report, since the data was no longer 
retained nor required. 

In order to provide a better understanding of actual flight hours flown by 
individual membership categories, such as Naval Officer, Naval Enlisted, Army Officer, 
revisions Were necessary to the Flight Hours and Flight History tables to accommodate 
the addition data fields. This revision not only provided management a broader 
prospective of flight usage by members, but also fulfills the Chief of Naval Operations 
(CNO) annual report requirement for flight hours flown by membership 
types/categories. 


20 


To facililate posting special dues and charges to the individual accounts, the 
revised MNFC MIS prototype can now handle “reoccurring events”. The MNFC 
staff/manager can code each account so that during the end-of-the-month transactions 
a predetermined membership due, fee, or any other special charge that reoccurrs on a 
regular basis, can be posted without the user’s assistance. 

3. Verification of User Requirements 

The logical design of the Monterev Navy Flying Club (MINFC) Management 
Information System (MIS) prototype was discussed and reviewed often with the 
MNFC manager. After each revision the logical Data Flow Diagrams (DFD) we re- 
examined and compared to the actual club operations to ensure functional accuracy. 

The MNFC manager, the major user of the prototype system, was presented 
example products of the MIS. These products were designed from the user's 
specifications previously obtained, and any desired changes identified by the users. The 
revised products were once again reviewed with the final copies approved prior to 
coding. 

This prototyping design technique should prevent the user from seeing an 
unfamiliar item, both in daily operation of the system and in its products. Plus, this 
method of design should reduce the amount of corrective maintenance on function 
procedures and products after svstem delivery. 

Prior to delivery of the MNFC MIS software package, the prototype will be 
subjected to an operational test utilizing a sample of the current MNFC database. The 
results will be compared for accuracy with those produced under the present manual 
system. 
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III. USER’S GUIDE 


A. INTRODUCTION 

The following user’s guide is written under the assumption that its intended user, 
the Manager of the Monterey Navv Flving Club, will be utilizing an IBM XT or a 
100% IBM compatible computer with a 5.25-inch floppy disk drive. a minimum of 
347K internal memory after system configuration, a LOMG Byte hard disk, a graphics 
printer with either a long carriage or a compressed print capability, and using the 
MS/DOS operating system. Ifa different hardware configuration is used, the user is 
directed to the owner's manual to see how to load and operate the MNFC MIS 
Prototype and its associated database, FLYCLUB. 

The MNFC MIS Prototype was designed to assist the Monterey Navy Flying 
Club Manager by maintaining the club’s administrative and financial records, preparing 
monthly billing, printing both monthly reports and annual report inputs. and providing 
a current and historical database from which data inquiries could be made. Data 
drawn from this historical database would help the Club Manager and the Board of 
Directors in decision-making processes. The following topics are discussed in this 
user's guide to aid the user with system operations: 

e System Start-up Procedures 

e Database Initialization 

e MNFC MIS Operations 

e System Back-up and Database Repacking Procedures 
e Exiting the MNFC Prototype 


e Maintenance 


B. SYSTEM START-UP PROCEDURES 
1. Machine Configuration Requirement 
First the user must ensure that his machine environment is properly initialized 
with a CONFIG.SYS file which has the following minimum settings: 
e Buffers = 5 
e Files = 20 
If the CONFIG.SYS file was not resident during boot initialization or did not 


comply with the stated requirements above, the user will need to build or modify the 
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system CONFIG.SYS file accordingly. The user should refer to the MS/DOS Manual 
for explanatory steps necessary to write or alter a CONFIG.SYS file. Once the correct 
CONFIG.SYS file is developed and stored, the computer should be booted or rebooted 
by hitting the following three kevs at the same time: <CTRL> <ALT> <DEL>. 
Unless the system has a clock installed, the computer will ask for the current date and 
time. The user must enter the correct date and time in order for the MIS Applications 
to post the database table entries correctly since system time and date are used by 
numerous appiicational modules for financial posting. The user will hit the 
<ENTER> kev after each date and time entry. 
2. Initial Program Loading 

Now that the computer has been rebooted and the correct date and time have 
been entered, the screen should have the ‘C’ drive prompt displayed, which looks like 
this: “C:>”. Take from storage the following seven floppy disks: the three R:BASE 
5000 Svstem disks, the two Master MNFC MIS Prototype disks, and the two 
FLYCLUB database disks. Place the R:BASE 5000 System Disk #1 into disk drive ‘A’. 
Now change the defauit drive to the ‘A’ drive by entering the command *:A” After 
fone the <ENIER> key, the A’ prompt (A:>) should now be present on the 
active screen line noted bv the blinking cursor. Copy the disk material onto the hard 
disk with the command: 

GOP er Ce SENTER > 

When the “A:>” prompt reappears with the cursor blinking beside it to the 
right vou are ready to load the second system disk onto the hard disk by repeating the 
above procedure. Repeat this process until all three R:BASE 5000 System Disks, the 
MNFC MIS Prototype Svstem Disks, and the FLYCLUB database disks have been 
copied onto the computer's hard disk. Upon completion of copying the disks the user’s 
computer now will have all necessary software to execute the MNFC MIS Prototype 
System. The MIS Prototype Applications and the FLYCLUB database structure will 
also be present on the hard disk. 

The user could also place all MIS Prototype associated software under a 
separate sub-directory title on the hard disk. The user should follow the instructions 
listed within the M/S, DOS Manual to create a sub-directory for the MIS system. Once 
the sub-directory is built, enter the sub-directory and then copy all seven system disks 
as previously discussed onto the hard disk. All MIS Prototype operations should be 


executed from within the newly designated sub-directory. 
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Now the user needs to change the default drive to that of the hard disk by 

entering at the “A:>” prompt: “C:” and hit the <ENTER> key. 
3. Other Initializing Preparations 

With the computer system ready to run the MNFC MIS Prototype, the user 
needs to have a minimum of ten preformatted 5.25-inch floppy disks to be used when 
called by the programs to back-up the FLYCLUB database. THE USER WILL NOT 
BE ABLE TO FORMAT ANY DISKS WHILE EXECUTING THE PROVO ime 
AND COULD LOSE ALL DATA WITH SYSTEM SHUTDOWN. System shutdown 
will be the only method to exit the prototype if the user is unable to complete 
execution of a system back-up/repack routine. 

To format the disks, just insert a new disk into disk drive ‘A’ and enter the 
command: 

FORMAT A? =<ENTER2 

Follow the directions displayed on the screen until all ten disks have been properly 
formatted. Store these disks separately from your unformatted disks in preparation for 
their use by either the “Post Monthly Journal Entries” or “Back Up and Pack the 
Database” program modules. 

Some operations require the use of a printer. The correct predesigned printer 
forms (e.g. Monthly Member Statements) or the required printer paper should be 


loaded and the printer energized before execution of the MNFC MIS Prototype. 


C. DATABASE INITIALIZATION 
|. Initialization Requirements 
During program execution, the MNFC MIS Prototype receives data inputs via 

various screen displav entry forms. However, before the menu driven functions of the 
prototvpe can be used, certain tables of the FLYCLUB database must be 
initialized/loaded; such as, initial information on each aircraft, current account 
balances, etc. The following tables must be initialized prior to system operations: 

e BAL_SHET -- Current balances for each account 

¢ EARNINGS -- Current balances of income and expense accounts 

e A/C_REC ~ -- Individual aircraft data 

e A/C_HRS ~ -- Current hob readings per aircraft 

¢ CAP_ASET -- Current Capital Asset status 

e ACCT_REC -- Current Accounts Receivable balances 


¢ ACCT_PAY -- Current creditors’ data and account balances 
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e MBR_SUM -- Current flight hours flown by each member category 
For ease and speed, membership records should be initialized using option (1) under 
the Membership Transactions Menu (see Figure 3.2, on page 28). 
2. Initialization Procedures 

In order to initialize the FLYCLUB database, the user must first disenable the 
automatic exec feature of the MNFC MIS Prototype. At the C:> prompt, after the 
system has been turned on and the current date and time entered. the user should 
execute the command: 

RENAME RBASE.DAT RBASE.TXT 
The RBASE.DAT command file calls the MNFC MIS Prototvpe FLYSTART 
Application program and starts the menu driven system. With this file disabled the 
user can now use the underlying R:BASE software to load the FLYCLUB database. 

Enter the command: R:BASE and press <ENTER>. The user will see a 
large “R” appear, followed by the R:BASE Menu. Select option (1) and press the 
Swe eR> key. At this time the R:> prompt will be present. Type OPEN 
mex ClUB and press <ENITER>. For each table listed in paragraph C.1 to be 
initially loaded, execute the command: 

LOAD <table name> WITH PROMPTS <ENTER> 
Then provide the data requested. Once the table has been loaded. press the < ESC> 
kev, which will return the user to the R:> prompt. Repeat the process until all 
necessary tables have been initialized. Once done, type CLOSE and press 
Se IER>. 

Now that the database has been entered, it is best to save the data in case ofa 
system failure. Place a formated disk in disk drive ‘A’ and copy FLYCLUBI.RBS and 
FLYCLUB3.RBS. Then remove the disk and insert another to copy FLYCLUB2.RBS. 
The command format for copving 1s: 

COPY Fly@reep=number> .RBS A: 
Remove the last disk, label and store both disks in a safe place. 

Wiewlast Item touset Is the RiBASE date function. The date can be entered 
and displayed in one of several formats: day-month-year, day-vear-month, month-dav- 
year, month-year-day, year-month-day, or year-day-month. The day is expressed as 
two digits while the month can be expressed as either two digits or three letters. The 
year can be displayed as either two or four digits. Currently, the MNFC MIS 
Prototype is in the R:BASE default setting of MM/DD/YY. All dates must be entered 


in that format to be accepted. 
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If the system default format is acceptable, skip to subsection 4.C.3. To set the 
date format to display the date such as JAN 26,1987, enter the command: 
SET DATE MMM-DD-YYYY <ENTER>. 
At this time, enter the date format desired. [Ref. 4: pp. 32-83] 
3. Finalize Initialization 
Now that the database is loaded, saved, and the date format is chosen, the 
user must exit R:BASE and reenable the auto executive command file. To accomplish 
these tasks enter the following commands at the noted prompt: 
R:> G€LOSE sERER— 
Ree ENT = EIN Ee. 
C:> RENAME RBASE.TXT RBASE.DAT <ENTER> 


D. MNFC MIS PROTOTYPE OPERATIONS 
1. Menu Driven System 

The man-machine interface for this Management Information Svstem 
prototype is a series of menus. Starting with the root menu, The MNFC MAIN 
MENU, see Figure 3.1, the user branches to the desired system function/operation. 
Each selected menu allows the user to return to the previously called menu, eventually 
returning to the MNFC MAIN MENU. All menu selections are grouped functionally 
to provide a more efficient working environment for the user (e.g. all member charge 
transactions can be accomplished in one session without returning to the main menu 
for each entry). 

Examples of the remaining menu branches and their applicable sub-branches 
are displayed in Figure 3.2 through Figure 3.14. Detailed functional descriptions of 
each selectable application (program) module can be found in Appendix D. 

To start the MNFC MIS Prototype system and to get the main menu to 
appear, the user types at the C:> prompt the command: 

RBASE <ENTER> 
Once the MNFC Main Menu appears, see Figure 3.1, the user is free to choose anv 
one of the operations by moving the highlighted cursor up or down with the proper 
arrow key, then hit the <ENTER> key. The user will either be presented another 
menu from which to choose a specific function or begin execution of the designated 


function. Short descriptions of each menu selection follows in section 3.D.2. 
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2. MNFC Selections 
a. MNFC Main Menu (Figure 3.1) 

Selecting option (1), MEMBERSHIP TRANSACTIONS, displays the 
MEMBERSHIP TRANSACTIONS ‘Menu (Figure 3.2). Option (2) calls the 
FINANCIAL TRANSACTIONS Menu (Figure E3 )s AIRCRAFT 
MAINTENANCE; FLIGHT HOUR UPDATES are accomplished by selecting option 
(3). The AIRCRAFT INVENTORY UPDATE 1s handled when option (4) 1s chosen. 
meen) (5) calls the PRINT REPORTS/STIATEMENTS Menu (Figure 3.9). The 
END-OF-THE-MONTH TRANSACTIONS Menu (Figure 3.13) is display upon 
selection of option (6). With the selection of option (7) the user exits the prototype 


and returns to the computer operation system. 


MONTEREY NAVY FLYING CLUB MIS MAIN MENU 
MEMBERSHIP TRANSACTIONS 

FINANCIAL TRANSACTIONS 

AIRCRAFT MAINTENANCE/FLIGHT HOUR UPDATES 


AIRCRAFT INVENTORY UPDATE 

Pd vile ORES ye ove VLENLS 
END-OF-THE-MONTH TRANSACTIONS 
Pelen nm LO COMPUTER OPERATING SYSTEM 





Figure 3.1 MNPFC Main Menu. 


b. Membership Transactions (Figure 3.2) 
The user is provided three choices in this menu; Enter a New Member 
Record, Edit/Delete an Existing Member Record, and Return to the MNFC Main 
Menu. The first two choices use interactive screen entry forms to request new member 
data or allow the edition or deletion of current member data. See section 3.3 and 
section 3.4 on editing and entering procedures. 
c. Financial Transactions (Figure 3.3) 
Option (1) displays the MANAGER’S UPDATE ENTRY Menu (Figure 


3.4). New financial transactions are entered via option (2) which displays the ENTER 
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MEMBERSHIP TRANSACTIONS 
(1) ENTER A NEW MEMBER RECORD 
(2) EDIT / DELETE AN EXISTING WIE Be Re BeOKD 
(3) RETURN TO THE MNFC MAIN MENU 


Figure 3.2. Membership Transactions (Branch Menu). 


A NEW FINANCIAL TRANSACTION Menu (Figure 3.7). All financial corrections 
and deletions are accomplished from the EDIT/DELETE AN EXISTING 
TRANSACTION Menu option (3). The fourth option returns the user to the MNFC 


Main Vfenu. 


FINANCIAL TRANSACTIONS 
MANAGER S@EDAVE EN lity 


ENTER A NEW TRANSACTION 
EDIT / DELETE AN EXISTING TRANSACTION 
RETURN TO THE MNFC MAIN MENU 





Figure 3.3. Financial Transactions (Branch Menu). 


d. Manager’s Update Entry Menu (Figure 3.4) 

The manager can correct any financial account either on the Balance Sheet 
or the Income Statement depending upon which option is chosen. Option (1) displays 
the Balance Sheet Adjustment Menu (Figure 3.5), while option (2) gives the user access 
to the Income Statement Adjustment Menu (Figure 3.6). Option (3) returns the user 
to the main Financial Transactions Menu. 

e. Balance Sheet Adjustment (Figure 3.5) 

All asset accounts carried upon the club’s Balance Sheet can be edited, 

corrected, and/or loaded by selecting option (1). The club’s liability accounts can also 


be adjusted, as with the asset accounts, by selecting option (2). The user must provide 
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MANAGER S UPDATE ENTRY 
(1) BALANCE SHEET ADJUSTMENT 
) INCOME STATEMENT ADJUSTMENT 
(3) RETOUR eEO FINANCIAL TRANSACTION MENU 


Figure 3.4 A Manager's Update Entry (Sub-Branch). 


the correct account number, the amount of adjustment, and whether the adjustment is 
an increase or decrease in the account’s balance. Option (3) returns the user to the 
Managers Update Entry Menu allowing adjustment entries to the income and expense 


accounts or exiting to the main Financial Transaction Menu. 


BANC Pete OILS LMENT 
(1) ASSET ACCOUNT ENTRY 
2) LIABILITIES ACCOUNT ENTRY 
(3) RETURN TO MANAGER’S UPDATE ENTRY MENU 


Figure 3.5 Balance Sheet Adjustment (Sub-Branch). 


Jf. Income Statement Adjustment (Figure 3.6) 

Any income or expense account on the club’s Income Statement can be 
edited, corrected, and loaded under this menu. Revenue/Sale accounts are adjusted by 
selecting option (1) and expense accounts with the selection of option (2). The user 
must provide the correct account number, the amount of adjustment, and whether the 
adjustment is an increase or decrease to the account's balance. Option (3) returns the 
user to the Manager's Update Entry Menu. 

g. Enter A New Financial Transaction (Figure 3.7) 

The user is able to select one of five typical financial transactions from this 

menu. The last option returns him to the main Financial Transactions Menu. Once 


again interactive entry forms are used to receive data from the user and then load the 
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INCOME STATEMENT ADJUSTMENT 
REVENUE/SALE ACCOUNT ENTRY 


EXPENSE ACCOUMIBEN TER 
RETURN TO MANAGER'S UPDATE ENTRY MENU 





Figure 3.6 Income Statement Adjustment (Sub-Branch). 


database. To enter one or more member charge sheets, the user selects option (1). All 
payments upon their accounts by members can be entered with option (2). With both 
options the user can make multiple entries and exit at will. Credit purchases are 
entered with option (3) and all cash purchases are covered with option (4). Club 
payments toward accounts payable accounts are handled bv selecting option (5). 


Option (6) returns the user to the main Financial Transactions Menu. 


ENTER A NEW FINANCIAL TRANSACTION 
ENTER A MEMBER S CHARGES 
ENTER A MEMBER'S PAYMENTS 


POST AN ACCOUNTS PAYABLE PURGHASE TN IER Esl 
POST CASH PURCHASE OF SERVIGEs GOOps 

POST PAYMENT TO AN ACCOUNTS PAYABLE ACCOUNT 
RETURN TO FINANCIAL TRANSACTIONS MENU 





Figure 3.7 Enter a New Financial Transaction (Sub-Branch). 


h. Edit/Delete An Existing Transaction (Figure 3.8) 

Corrections to charges and payments whether by a member or the club can 
be accomplished while in this menu. The system will ask if the error has been 
discovered prior to monthly posting or afterwards. Each case is handled differently; 
therefore, the user must be aware of when the error was found. The account data and 


corrective amount are required before entering the selection. Member charge and 
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payment corrections are accomplished by options (1) and (2) respectively. The club 
charge corrections are handled with option (3) while payments are corrected by option 


(4). Option (5) returns the user to the main Financial Transactions Menu. 


EDIT / DELETE AN EXISTING TRANSACTION 
MEMBER CHARGE TRANSACTION 
VEWIBERSP AS MENT TRANSACTION 


ACCOUNTS PAYABLE PURCHASE 
PAYMENT TO AN ACCOUNTS PAYABLE ACCOUNT 
RETURN TO FINANCIAL TRANSACTIONS MENU 





Figure 3.8 Edit/Delete an Existing Financial Transaction (Sub-Branch). 


i. Print Reports/Statements (Figure 3.9) 

This menu is the main printing menu which calls the appropriate submenu 
to handle the printing requirements for Administrative Reports, Financial Reports, and 
Annual Report Inputs. Option (1) calls the Administrative Reports Menu (Figure 
3.10). The Financial Reports’ menu (Figure 3.11) is selected by option (2). And the 
printing of inputs to the Annual Report is done via the Print Annual Report Inputs 
menu (Figure 3.12) with option (3). As in other menus, the last option, number (4), 
returns the user to the MNFC Main Menu. The system printer should be energized 


and ready for operation prior to selecting a print routine. 


PNR EP ORS 7 STATEMENTS 
PRINT ADMINISTATIVE REPORTS 


PRINT FINANCIAL REPORTS 
PRINT ANNUAL REPORT INPUTS 
RETURN TO THE MNFC MAIN MENU 





Figure 3.9 Print Reports / Statements (Branch Menu). 
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J. Print Administrative Reports (Figure 3.10) 

Three commonly used reports are produced under this menu. Option (1) 
searches the FLYCLUB database and prints the current Membership Roster (Figure 
B.1). The Manager’s Monthly Report (Figure B.3) is produced in the rough for his 
review and approval bv selecting option (2). A current status report of all club owned 
or leased aircraft, the Aircraft Inventory and Status Report (Figure B.2), is obtained by 
using option (3). Access to the main Print Report/Statement Menu is regained by 


selecting option (4). 


PRINT ADMINISTRATIVE REPORTS 
(1) PRINT MEMBER ROSTER 
(2) ~ PRINT MANAGER’S MONTHLY REPORT 
(3) PRINT A/C INVENTORY & STATUS REPORT 
(4) RETURN TO PRINT REPORTS/STATEMENTS MENU 


Figure 3.10 Print Administrative Reports (Sub-Branch). 


A. Print Financial Reports (Figure 3.11) 

The user can have one of three useful financial documents produced from 
within this menu; Aged Accounts Receivable Report, a Balance Sheet, or an Income 
Statement. The account balances in each document are as accurate as the last monthly 
postings. Option (1) gives the manager the Aged Accounts Receivable Report (Figure 
B.4). The Balance Sheet (Figure B.9) is produced by selecting option (Zz) and the 
Income Statement (Figure B.8) with option (3). Control is returned to the Print 
Report/Statement Menu with option (4). 

f. Print Annual Report Inputs (Figure 3.12) 

Inputs (rough drafts) to the required annual reports (Membership 
Breakdown, Annual Operating Statements, and Summary of Insurance) can be 
obtained from these menu selections. The breakdown of flight hours flown by each 
membership category and FAA-certification is produced at year’s end by selecting 
option (1). Data for this report is posted monthly with the MBR_SUM table and can 


be printed only once per year as the Membership Breakdown Summary Report (Figure 
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PRINT PINANCIAL REPORTS 
(1) PRINT AGED ACCOUNTS RECEIVABLE 
(2) PRINT BALANCE SHEET 
(3) PRINT INCOME STATEMENT 
(4) RETURN TO PRINT REPORTS/STATEMENTS MENU 


Figure 3.11 Print Financial Reports (Sub-Branch). 


B.10). Option (2) produces five input reports which make-up the annual operating 
statements required by OPNAYV (see Figure B.lla through Figure B.13). Option (3) 
prints a summary of all listed aircraft insurance information (see Figure B.14). Control 


is returned to the Print Report/Statements Menu with option (4). 


PRINT ANNUAL REPORT INPUTS 
(1) PRINT MEMBERSHIP BREAKDOWN 
(2) Piel AINNUAL OPERATING STATEMENTS 
(3) PRINT SUMMARY OF INSURANCE 
(4) RETURN TO PRINT REPORTS/STATEMENTS MENU 


Figure 3.12 Print Annual Report Inputs (Sub-Branch). 


m. End-of-the-Month Transactions (Figure 3.13) 

From within this menu the user posts all reoccurring charges, prepares all 
bills and statements, closes the monthly journal, posts all accounts, makes a backup 
copy of the FLYCLUB database, and repacks the database. The BACKUP AND 
PACK THE DATABASE option should be performed weekly. Posting the reoccurring 
charges must be accomplished before any billing. Following the billing, the remaining 
journal entries can be posted. Except for the weekly backup and repack the user 
should execute each option in order. Option (1) is chosen to post all reoccurring 


charges, such as membership dues. Option (2) displays the menu to handle all monthly 
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billing and statement production (Figure 3.14). Option (3) completes the end-of-the- 
month postings. Database backup and repack are done under option (4). Control is 
returned to the MNFC Main Menu by Selecting option (5). 


END-OF-THE-MONTH TRANSACTIONS 
POST REOCCERRENG Chis 
POST AND PREPARE MONTHLY BILLING 


POST MONTHLY JOURNAL ENTRIES 
BACK UP AND PACK THE DATABASE 
RETURN TO THE MNFC MAIN MENU 





Figure 3.13 End-of-the-Month Transactions (Branch Menu). 


n. Post and Prepare Monthly Billing (Figure 3.14) 

The posting and preparation of monthly billing and statements was 
Separated into three areas to allow the user to complete one billing/statement process 
then handle other transactions as necessary. Additionally, the printer forms for each 
operation are different and this separation allows for printer set up. Option (1) posts 
all member charges and payments then produces a monthly bill (Figure B.6) for each 
active member. Option (2) computes all instructor flight time and produces an 
instructor's statement (Figure B.5). The lessor statements (Figure B.7) are computed 
and printed by selecting option (3). The user is returned to the previous menu with 
option (4). 

3. Editing/Deleting Screens 

When executing the menu selections for editing and deleting records, the user 
will have displayed at the top of his screen, above the predesigned edit/delete form, a 
horizontal menu: , 

---Skip---Edit---Change---Add---Reset--- Delete---Quit--- 

The user’s cursor will normally be highlighting the text within the predesigned 
edit/delete form awaiting editing. The user will move the highlighted cursor with the 
<TAB> and <SHIFT-TAB> keys, and make the necessary corrections in the usual 
manner, using the arrows, <INS>, and <DEL> keys. Any special instructions 


peculiar to that edit/delete form will be displayed at the bottom of the screen. 
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POST AND PREPARE MONTHLY BILLING 
(1) POST AND PRINT MEMBER STATEMENTS 
2) POSTAIND PRINT INSTRUCTOR STATEMENTS 
eo eM MOeniemes | LESSOR STATEMENTS 
4) RETURN TO THE END-OF-THE-MONTH MAIN MENU 


me ™™O™, 
2 
wee” 


Figure 3.14 Post and Prepare Monthly Billing (Branch Menu). 


Once the change has been made, press the <ESC> key unless other 
instructions are provided. The cursor will be moved to the top horizontal menu. 
Select “Change” to send the modification to the table. Then select “Quit” to save all 
changes made. For deletion, select “Delete” to remove the displayed data from the 
associated table. The svstem will ask for confirmation of each deletion request. After 
confirming the deletion, the data will be removed and then the user must select “Quit”. 
The remaining options within the horizontal menu are rather self explanatory. 
(Ref. 4: pp. 122-125} 

4. Screen Enter Forms 

When entering data into a predesigned screen entry form, the user can type 
data into the current highlighted cursor area. Normal procedures allow for the use of 
the <ENTER> key to move the highlighted cursor to the next data element to be 
completed. However, any special instructions for a specific screen entry form will be 
displaved at the bottom of the screen. These instructions supersede the norm and must 
be followed. The user can skip data elements by using the <TAB> key. The arrow, 
<INS>,and <DEL> kevs work as usual within the highlighted cursor areas. 

After the data have been entered on the screen and any necessary corrections 
made to discovered errors, the user presses the <ESC> key. Now the following 
horizontal menu will appear at the top of the screen: 

---Add---Reuse---Edit---Quit---. 
The user must select the “Add” option to place the screen data into the database. The 
screen entry form will reappear, but it will be empty. By selecting the “Reuse” option 
the data is both stored and returned within the screen entry form. This enables the 


user to reuse any portion of the data for another separate entry if so desired. The 
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“Quit” option exits the user from the entry form without saving any data placed upon 
the screen. This is different than in editing and deleting procedures. DO NOT confuse 
the two. Remember to select “Add” before executing the “Quit” option. [Ref. 4: pp. 
118-122 


E. SYSTEM BACK-UP AND DATABASE REPACKING 

To protect the data entered into the FLYCLUB database, it 1s recommended that 
the user perform a System Back-up and Repack at least weekly. During this operation 
the database is copied to one of the previously formatted floppy disk ( as discussed in 
section 3.B.3 “Other initialization preparations” ) and the hard disk 1s repacked. The 
hard disk is repacked in order to reclaim anv unusable disk space which accumulated 
during the weeks operations. With each entry and removal of table data, some disk 
space is unavailable for use and could cause the user to eventually run out of usable 
disk storage space. 

The initial database copv is made in case there is a system failure during the 
repacking operation, at which time the database could be lost. Upon completion of 
the repack the database is recopied, requiring less disk space due to the successful 
repack, so the user will have the most up-to-date version with all associated computer 
pointers. [he back-up disks should be labeled and dated to ensure the latest version 1s 
used in case of svstem recovery operations. 

To perform the Svstem Back-up and Repack, the user need only to select option 
(4) from the End-of-the-Month Transactions menu and then follow the directions given 
on the computer screen. Remember, the operation requires a minimum of two 


preformatted disk before execution. 


F. EXITING THE MNFC PROTOTYPE 

To exit the MNFC MIS Prototype and return to the computer’s operating 
system, the user selects option (7) from the Monterey Navy Flying Club Main Menu. 
Once selected, the MIS Prototype will “close” the FLYCLUB database, performing any 
remaining database loading; thereby, preventing any lost data. The user should not 
exit the svstem by turning the computer off. Data could be lost or incorrectly entered 
upon losing system power. If no further use is required of the computer, the power 


can now be safely turned off with no danger to the MIS database. 


36 


G. MAINTENANCE 

Software maintenance encompasses many things, from correcting one small “bug” 
to an entire redesign and recoding of a specific module within the program. Before any 
source code is altered, the user should invest some time and effort in gaining an 
understanding of the processes required to plan, execute, and document any and all 
changes to a program code. 

The various application modules of the MNFC MIS Prototvpe system are so 
integrated, any change must be thoroughly considered and properly documented or 
major errors could occur while running the system. The errors could, perhaps, not 
even be seen by the user. The system may appear to operate correctly, however. the 
data being stored, manipulated, and printed could be inaccurate or even lost. 

As a minimum, the individual who is assigned maintenance responsibility for the 
MNFC MIS Prototype code should have a thorough knowledge of: 

e §=6Relational database structures 

e Structured programming techniques 

e Software configuration change documentations 

e R:BASE 5000 coding language and constructs 

e The current MNFC MIS Prototype source code 

e The MIS Prototype’s logical functions 

e The operations and functions performed by the MNFC. 
Before actual alterations are made to the prototype’s source code, the maintenance 
supervisor should have a firm understanding of the svstem’s logical functions. The 
logical functions must be understood prior to any manipulations of the MIS 
Prototype’s physical functions. 

The writer acknowledges that errors will be found and/or requirements orginially 
incorporated in the prototype will change. These events will necessitate the need for 
software maintenance. The code listed in Appendix E through Appendix H_ is 
commented to help the maintenance programmer and management to have a better 
understanding of each logical sequence of the program modules and their interfacing 
characteristics. 

The average user of the prototype should NEVER attempt to alter the code in 
any fashion for any reason. Professional outside assistance is highly recommended for 


any new requirements to be added or to correct any discovered errors. 
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IV. AUTOMATED CODING VS MANUAL CODING 


A. INTRODUCTION 

Appendix E through Appendix H contains the source code for the latest version 
of the Monterey Navy Flying Club (MNFC) Management Information Svstem (MIS) 
Prototype. The source code presented is a collation of program code written by the 
author and those lines produced by the automated code generator feature of R:BASE 
5000 software, Application Express, and CDR. D. R. George, USN. 


B. APPLICATION EXPRESS 
1. Overview 
As an automated code generator, Application Express was designed to assist 
the non-programmer in writing relational database applications in the R:BASE 35000 
language. Application Express reduces the time required to implement a simple 
application since mastery of syntax, command structuring, and file formating 
procedures of R:BASE 5000 is not necessary prior to svstem development. By using a 
series of menu choices, Application Express can guide almost any user through the 
creation of a simple database structure, menu-driven entry and display forms. single 
table reports, and standard database processes. The user can start with a simple, 
Straightforward application and add sophistication as the user's Knowledge of both 
relational database structures and the R:BASE 5000 programming language increases. 
2. Operations Available 
From within the Application Express code generator the user is able to: 
a. Define an application--establish the database structure 

¢ name the database to be used 

¢ name relational tables 

¢ name table attributes 

e define the attributes’ data type 

b. Change an existing database 

e add tables 

e §©delete tables 

e rename tables and attributes 


e¢ redefine an attribute’s data type 
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c. Cefine a new application 

e build a simple database program 

e define menu names 

e choose simple database options and actions 

¢ attach separately coded modules to the generated application 
d. Change an existing application 

e add menu options and actions 

¢ delete menu options and actions 

e modify anv menu, options, or actions 

e modify command module code 

The basic database processes that are capable of being coded and implemented 
by the Application Express code generator include: 

e load table data 
e edit specific rows of data 
e delete rows of data 


e browse;review entire tables 


select/displav rows of data 
¢ print selective table data 

Once the user has defined the database structures, developed and typed the 
menu listings, and completed the choice of options and actions, Application Express 
writes the program code, compiles the code, and combines the associated conimand 
files within one application program. The newly compiled program code is saved by 
Application Express in ASCII format and ts listed as: <Application Name>.APP. 
The executable binary computer code file, labeled with the suffix of .APX, is also 
prepared bv Application Express and is ready for immediate use. 

3. Limitations Imposed 

The full power of the R:BASE 5000 programming language is not available to 
the user while using the Application Express code generator. Database processing 
code produced by Express can be performed on only one table at a time. Multiple 
table inquiries, an advantage of a relational data management program like R:BASE 
5000, can not be accomplished with Express generated code. Syntax and constructs for 
multiple table computations and summary reports (printing data compiled from more 


than one table) are not contained within Express. 
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Data entry and revisions are also limited to one table per operation. R:BASE 
5000 is capable of variable entry (entering data into many tables from one screen entry 
form), and multiple table searches and revisions. However, Express entry forms are 
limited to handling onlv 20 columns or attributes, thus setting an upper boundary on 
the user's database structures. Searches coded by Express can sort one table with a 
maximum of three attributes and a single conditional clause. Reports printed from 
Express generated code can only contain data from a single table and are limited to a 
maximum width of 80 characters. 

Another major limitation with Application Express is its inability to run 
individual modules. The user must conduct all debug procedures by executing the 
entire application created by Express from outside Express and in the R:BASE basic 
mode. As the program size increases, the time required to load the application into 
Express, make any changes, and then recompile the code, prior to testing, also 
increases considerably. All these limitations significantly reduce the capability of most 
relational applications and increase the difficulty of system implementation. 

As with any code generator, the resulting source code from Application 
Express is no better than the database design plan that conceived it. The user must be 
verv familiar with relational database theory, database structures, and programming 
logic to fully utilize Express efficiently. The application developed, using Express. must 
be thoroughly designed, accounting for data redundancy necessary to accommodate 
user searches, report printing, and database change constraints of the Express code 
PENCraAvOn my ele) 

4+. Future Advancements 

The writers of R:BASE 5000 series software, Microrim, have improved the 
R:BASE code generator process with the release of its R:BASE System V. Svstem V 
consists of three programming features, Application Express, Forms Express, and 
Reports Express. With Svstem V the user is offered: 

¢ multiple form entry and editing 

¢ multiple table entries 

e Express assisted form and report generation 
e enhanced report printing 

e data validation 

¢ multi-user (Network) capabilities 

¢ greater inter-table relational operations 


¢ improved mathematical computations [Ref. 6]. 
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Even with all its new capabilities, R:BASE System V does not guarantee a 
bug-free application. The user still must properly design all database structures and 
logical processing steps. System V does eliminate the time to master the 
programmmuing syntax and constructs, and reduces the time from conception to 


implementation. 


C. THE APPLICATION EXPRESS AND MANUAL CODING COMBINATION 

Due to the anticipated size and complexitiy of the Monterey Navv Flying Club 
MIS Prototype, and the limitations associated with the R:BASE 5000 Application 
Express code generator, the writer chose to use Express to assist in producing the 
menu screens, in providing mienu selection code, and in attaching the individual 
command files into one executable application program file. As can be seen in the 
Prototype’s source code listed in Appendix E through Appendix H, all menu related 
code is computer generated by Application Express. Overall system execution time was 
reduced since the numerous command files were attached and compiled into one 
operating application file by Express. This allowed the reduction in the number of disk 
reads necessary to call and display each menu screen command file and eliminating the 
calling of another separate command file to interrupt and execute the user's responses. 

Manual coding at the R:BASE command level was used to take advantage of the 
strong R:BASE 5000 relational database management language constructs. \luitiple 
table searches, inter-table computations and comparisions, multiple table entries, 
multiple table editing, and integrated reporting were desired. The use of the relational 
database structure minimized data redundancy and reduced the number of required 
data structure tables within the database. To incorporate these capabilities, modular 
design and coding was required, which called for individual command files for each 
functional module and required the ability to test each module prior to system 
integration. Application Express did not provide the environment to handle these 
programming techniques, leading to its use only in menu code generation and 
application compiling. The system design with each major function (such as financial 
transactions), being coded manually and compiled under Express as _ separate 
applications, enhanced the prototype overall development and operation. 

The critical function of module testing was conducted by coding each desired 
system function in a separate R:BASE 5000 command file. These files were compiled 


and run from within the R:BASE basic environment. This allowed for error discovery, 
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correction, and retesting prior to placing that module into the major prototype 
application. Using the Express option “Macro”, each command file was incorporated 
into the Express generated system. 

However, the ease with which Application Express structures and builds database 
tables proved to be an excellent asset to the writer. Additions, revisions, and deletions 
of table structures and attributes were conducted exclusively from Express. The user- 
friendly menus and prompts leads the user through the process of table definition and 
data tvpe definitions. 

The basic R:BASE Forms and Reports coding procedures were used in order to 
meet the system requirements for multiple table computations and reporting. All 
screen entry forms and report printing commands are located in the R:BASE database 
Structure as a table. When entry and print commands are encountered within the 
source code, the application calls the format desired, whether for entry or printing, 
from the already accessed database. This concept also assisted in reducing the time 
required to produce the product since separate disk reads are not necessary to locate 


the commands to be executed. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. SUMMARY 

Version 2.0 of the Monterey Navy Flving Club (MNFC) Management 
Information Svstem (MIS) Prototvpe was successfully designed, developed, and 
implemented in this thesis. In continuation of an earlier thesis written by CDR. D. R. 
George, the original prototype was expanded to include the remaining administrative 
and financial requirements of the club which were not previously incorporated 
[Ref. 1: p. 9]. This completed MIS prototype can be used as a springboard from which 
to investigate the possibilities of Decision Support System (DSS) modules to assist in 
the decision-making processes of the Club Manager and the Board of Directors. The 
prototype was implemented in R:BASE 5000 database language, a product of Microrim 
of Belleview, Washington. 

The Monterey Navy Fiving Clubs Management Information System (MIS) 
Prototvpe is an interactive, menu-driven system consisting of five separate, functionally 
independent, applications (programs) which access one relationally structured database. 
Each application gives the manager an easily accessible tool to manage club 
membership, process member charges and billing, track aircraft maintenance and 
associated costs, and disseminate information to governing authorities. The system 
provides the framework from which a Decision Support Package application can be 
designed and implemented to afford the Club’s Manager and Board of Directors 
greater decision-making support. 

The current MIS Prototvpe source code is a combination of manually written 
R:BASE 5000 command files and computer generated code. Limitations imposed upon 
the use of special command syntax and constructs and module testing by R:BASE 5000 
Application Express (the code generator) lead to the exclusive use of Express for all 
menu screen and selection coding, application interface coding, and application 
structuring (the integration of individual command files into one program) and 
compiling. Functionally distinct modules were coded manually in the R:BASE 5000 
command language to take full advantage of R:BASE 5000's relational database 
capabilities. Multiple table integration, tabulation, searches, entries, and independent 
module testing were available when the code was written outside of the Express 


environment. 
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The development of the relational database tables was easily and rapidly 
accomplished from within Application Express. Minimum keystrokes were necessary 
to change existing table structures or attributes while in Application Express. 
However, source code comments are not provided for lines of code written by the code 
generator. This deficiency makes it very difficult to maintain the code. 

The User’s Guide, Chapter III, and version 2.0 of the MIS prototype is 
undergoing svstem review and operational testing by a potential user. Outside review 
and testing of the User’s Guide will ensure its ease of reading and clarity. Svstem run- 


time errors Will be documented and corrected. 


B. PROJECT RESUETsS 
The Monterey Navy Flying Club’s Management Information System (MIS) 

Prototype produces various hard copy products. Each report or statement is in 
response to either an administrative or financial requirement. These products provide a 
synopsis of club activities which are utilized to estimate future budgets or explain 
current financial conditions. The reports and statements currently prepared by the 
prototype’s latest version for management's review or club distribution are: 

¢ Membership Roster 

e Monthly Manager's Report 

e Aged Accounts Receivable Report 

e Member Statements 

e Instructor Statements 

e Lessor Statements 

e Club Balance Sheet 

e Club Income Statement 

e Operating statement inputs to the Annual Report 

¢ Summary of Aircraft Insurance 


e Aircraft Inventory and Status Report 


Vlembership Breakdown Summary 
All database data are saved in historical files providing depository of data from 
which to make future inquiries and offering greater opportunities to support decision- 
making applications. The club’s monthly transactions are saved within the database by 
date, account, and categorized by function (e.g. accounts payable payment is listed in 


the accounts payable paid table). Monthly, all accounts are posted and billing 1s 
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conducted. Upon the completion of these end-of-the month transactions, the revised 
database is saved on a floppy disk. Each month’s transactions are appended to the 
previous month’s historical file. Thereby, each month's floppy disk carries a snapshot 
of the database from the beginning of the year to that month. Svstem recovery can 
then be accomplished by copying the latest floppy disk and by entering those 


transactions which occurred since the previous month's posting. 


C. SUGGESTIONS FOR FUTURE RESEARCH 

This thesis successfully designed and implemented a MIS prototype system for 
the Monterey Navy Flying Club. Conceptionally, the original prototype svstem was to 
possess a limited Decision Support System (DSS) package capable of accessing the 
relational database and assisting management decisions. The accompanying DSS 
package was not attained. The current system design structure will allow the addition 
of this future DSS application program to access the relational database as conceived. 

1. System Implementation and Future Maintenance 

Over the life of the MNFC MIS Prototype, outside influences will cause 
software maintenance to occur. Newly discovered errors, new system procedures, 
revised reporting reguirements, entry/edit format changes, and priority shifts bv higher 
management are inevitable. These events will force the need to make svstem 
modifications to the existing prototype. To accommodate these necessary actions, it is 
recommended that a maintenance supervisor be contracted to conduct any system 
analysis, design, coding, and debugging of the prototype. 

This maintenance person would be responsible for data structure control. 
database documentation, configuration change control, enhancement evaluation. and 
recovery procedures. He should implement a simple method for the user to document 
all errors and enhancement requests. The prototype’s database will require 
considerable care. The maintenance supervisor should be considerably experienced in 
database processing activities, familiar with the club’s operations, and able to integrate 
existing systems with the prototype. Club management is responsible to-keep the 
maintenance supervisor informed of all regulational changes and additions. 

It is recommended that the MNFC MIS Prototype be installed by the club 
and tested in parallel with the current manual system for a minimum of two months. 
All system errors discovered during the running of the prototype should be documented 


for use in subsequent program debugging. Any user modifications should also be 
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specified during this system test period. Application enhancements then can be 
provided ‘to the system maintenance supervisor for analysis, design, and 
implementation. Approximately two months should be allotted for initial application 
corrections, enhancements, and retest, followed by system turnover to prototype 
operations. 

Presently, there is no capability to track individual aircraft parts purchased 
and expended by the club’s manintenance personnel. Due to the lack of this data, 
inaccurate estimates of future maintenance cost may be produced. Cost trends for 
specific parts and usage trends for those highly critical aircraft parts cannot be 
provided. It is recommended that the prototype be enhanced to include an aircraft 
inventory module to maintain the club’s aircraft parts inventory. Overall maintenance 
cost per aircraft is already kept by the system, but individual part identity and cost 
could be useful data to formulate better management and control of overhead cost. 

It 1s also recommended that the club manager and the maintenance supervisor 
determine the procedures to clear the prototype database and prepare for a new year's 
operation. Procedures must be established to clear specific database tables while 
maintaining tables, such as the BAL_SHET, EARNINGS, ACCT_REC. The size of 
the database will become too large for retention on a few floppy disks unless some data 
are stored elsewhere before continuing with club activities. 

2. Possible Decision Suppport 

It is recommended that a continuation of this thesis be undertaken to design. 
develop, and implement a Decision Support System (DSS) package for use with the 
FLYCLUB relational database. Initial analysis indicates that a combination of 
R:BASE Clout software, interfacing programs, such as Multi-Plan and Wordstar, and 
the basic R:BASE 5000 inquiry syntax and constructs demonstrate promising 
possibilities for decision support. The ease with which R:BASE data can be transferred 
between programs such as Multi-Plan and Wordstar offers the user the ability to 
manipulate data and present results to interested parties in various formats. 

In particular, a Decision Support System package could be used to assist the 
Monterey Navy Flying Club Manger and its Board of Directors in their strategic 
planning. Future budgetary plans would provide more accurate data of past 
expenditures. Individual aircraft profitably could be investigated and consideration be 
given to the necessary cost to retain club aircraft. Trends in membership, maintenance, 


and operating cost could be tracked, analyzed, and be the basis for various forecasts. 
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The DSS application could be easily incorporated into the menu Selection 


framework of the initiating application, FLYSTART. The DSS application (program) 


should provide access to the tools necessary to address the following major issues: 


a. 


Predicting aircraft availability 


Tracking scheduled maintenance for individual aircraft vs. expected club 
use 


Predicting reoccurring tvpes of maintenance for an aircraft 
Tracking receipt ot critical aircraft parts and their cost 
Maintaining high usage parts on hand 


Investigating reoccurring member associated maintenance 


Budgetary forecasting 


Predicting future rental revenues based on past flight hours flown 
Comparing budgeted expenses with actual expenditures 

Evaluating individual aircraft operating cost vs. revenue the plane earns 
Estimating the usage of flight supplies bv club and members 


Maintaining flight supply stocks and cost within desired target 


Membership trend analysis 


Investigating membership rental trends for specific aircraft types 
Reporting changes in membership [light certifications 

Estimating future flight training requirements of current membership 
Displaying instructor to student ratios 


Forecast instructor availability for obtaining future certifications 


Aircraft replacement planning 


Comparing cost to buy vs. lease of aircraft 

Anticipating avionics requirements to meet club needs 

Targeting aircraft for replacement due to ops/maintenance history 
Forecasting new specific aircraft suites 


Evaluating cost to retain vs. replace a specific aircraft 


Accident rates 


Comparing pilot skills and type of accident 
Displaying those members with reoccurring accidents 
Searching for common errors/events associated to accidents 


Identifying potential members for reoccurring accidents 
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This thesis was the second step forward for the Monterey Navy Flying Club in 
gaining firmer management control over club data. The prototype use and eventual 
modifications to the program structures will certainly reinforce the positive aspects of 
using computerized information systems. The addition of a decision support 
application will further that positive atmosphere with the club’s Board of Directors and 


its Manager. 
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APPENDIX A 
DATA FLOW DIAGRAMS 


A Data Flow Diagram (DFD) partitions a system, and is one of the principal 
tools of the structured specification. Through the use of this simple graphic 
representation, the user and the analyst can examine the active components of the 
System and the associated data interfaces. DFD’s are not intended to show control or 
procedural sequences as would a flowchart, but are to exhibit a svstem in small concise 
logical segments and to demonstrate each major data flow interface between the 
processes involved [Ref. 7]. 

Figure A.1l through Figure A.25 are logical DFD’s and depict the essential 
functions of the Monterey Navy Flying Club Management [nformation Svstem 
prototype. Each process, depicted by a circle, is uniquely identified by a number such 
as, 1.1 for Maintain Club Records in Figure A.2. The DFD process numbers are the 
same as the numbers assigned the major MIS processes in the System Hlerarchv 
Charts shown in Figure C.1 through Figure C.3. Subprocesses are numbered such that 
one can readily see its root process. For example, the subprocess, Enter/Edit [ember 
Record is assigned the number 1.1.1. The ‘1.1’ digits note the root process. Maintain 
Club Records, while the ’.1’ tells the reader that this is the first subprocess under 
Maintaining Club Records. The subsequent subprocesses involved in Enter Edit 
Member Records will be noted by an extention of the ‘1.1.1’ number in the same 


manner (e.g. 1.1.1.2 for Enter a New Member Record). 
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Monterey Navy Flying Club MIS (Level zero). 


Figure A.1 
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Figure A.2. Monterey Navy Flying Club (Level one). 
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Maintaining MNFC Records. 


Figure A.3 
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Figure A.4 Enter and/or Edit Member Records. 
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Figure A.5 Processing Member's Charge Sheets. 
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Figure A.6 Enter Member Payments. 
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Figure A.7 Processing MNEFC Purchases. 
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Figure A.8 Processing MNFC Payments. 
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Figure A.9a_ Processing the End-of-the-Month Transactions. 
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Figure A.9b Processing the End-of-the-Month Transactions (con't). 
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Figure A.9c Processing the End-of-the-Month Transactions (con't). 
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Maintaining Aircraft Inventory and Status. 


Figure A.10 
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Aircraft Maintenance Entry. 


Figure A.11 
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Figure A.12 Additions and Deletions to Aircraft Inventory. 
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Figure A.13 Generation of Reports and Statements. 
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Figure A.14 Generation of Membership Rosters. 
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Generation of Aircraft Inventory and Status Report. 


Figure A.15 
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Figure A.16 Generation of Monthly Manager’s Report. 
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Figure A.17 Generation of Aged Accounts Receivable Report. 
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Figure A.18 Generation of Instructor Statements. 
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Figure A.19 Generation of Member Statements. 
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Figure A.20 Generation of Lessor Statements. 
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Generation of Income Statements. 


Figure A.21 


We 


LS se 


Nd ed 


239 1304 


JINVUSY 
23 -DOY 


ABFKS 
ZINVWa 
ALWaaNID 


¢ 


yaw laerc 
DINW eo 3 


Lams 220 


wIwges 


DPW s3qy2ay 


L3SV GYD 


LIHS “WA 


Figure A.22. Generation of Balance Sheets. 
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Figure A.23 Generation of Membership Breakdown Report. 
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Figure A.24 Generation of Annual Operatin 
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Figure A.25 Generation of the Annual Summary of Insurance Report. 
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Aig NIDUN GB 
SYSTEM REPORTS AND STATEMENTS 


To assist the manager of the Monterey Navy Flying Club (MNFC) in the 
execution of his administrative duties, the MNFC Management Information Svstem 
(MIS) produces various reports and statements. Svstem operating procedures 
necessary to generate these documents are discussed in Chapter [II, the User's Guide. 

Examples of each document capable of being produced by the MNFC MIS 
prototype are displayed in Figure B.I through Figure B.14. Tables | and 2 summarize 


the products by category and scheduled submission. 


TABLE | 
REQUIREMENT CATEGORIES 


atti a ee 


General Financial OPNAV 
dmin Report Annual 
Report/Statement Report Report 
Membership Roster Yes 
A,C Inventory & Status ies 
Monthly Manager's Rpt ines : 
Aged Acct Receivables nes 
Instructors Statement Bes 
Viember's Statement YES 
Lessor’s Statement es 
ncome Statement Yes 
Balance Sheet . nes 
Membership Breakdown Yes Yes 
Operating Statements ies RCES 
Statement of Net Worth h nes ‘vies 
Summary of Insurance Yes ies Ves 


aa 


TABEE2 
SUBMISSION SCHEDULES 


Report/Statement Monthly Annually As Needed 


Membership Roster Yes Yes 
A/C Inventory & Status Yes Yes 
Monthly Marnager’s Rpt es 

Aged Acct Receivables Nae 

Instructors Statement es 

Member's Statement Yes 

Lessor’s Statement Yes 

Income Statement ; 

Balance Sheet Yes 

Membership Breakdown 

Operating Statements 

Statement of Net Worth 

Summary of Insurance 
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Figure B.1 
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Figure B.2 Aircraft Inventory and Status Report. 
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MONTEREY NAVY FLYING CLUB 
MANAGER'S REPORT 


MONTH OF JANUARY 


DATE: 01/19/87 

MONTHLY FLIGHT TIME: 
COLLECTIONS: S 
EXPENDITURES : S 


26. 0UG aks. 
BO g2.20 
BF 5 6 0 


ExeeclTED MAJOR EXPENDITURES: 


SURRENT ASSETS: 


eo -CHECKING 
CASH-SAVINGS 12,345.67 
ACCOUNT RECEIVABLE-MBRS 1,234.56 
ACCOUNT RECEIVABLE-LESSOR 0.00 


TOTAL S$ 14,814.73 


> 2234-50 


VIOLATIONS, INCIDENTS, OR ACCIDENTS: 


SCeMMaNTs : 


MEMBERSHIP STATUS: 


NEW MEMBERS == 
LOST MEMBERS 70> 
CURRENT TOTAL 200 


GURRENT LIABILITIES: 


ACCOUNTS PAYABLE S$ 2,345.67 
SHORT-TERM PAYABLE 0.00 
TOTAL S 2,345.67 


ie, &- WOOLCOCK 
MANAGER 


Figure B.3 MNFC Monthly Manager's Report. 
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MWNFC Aged Accounts Receivables Report. 


Figure B.4 
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MNFC Monthly Instructor’s Statement. 
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Figure B.5 
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MNFC Monthly Member’s Statement. 


Figure B.6 
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MONTEREY NAVY FLYING CLUB 
806 AIRPORT ROAD 
MONTEREY, CA 93940 
(408) 372-7033 


STATEMENT OF LEASED AIRCRAFT OPERATION 


AIRCRAFT NO : N7322A HOBBS METER READINGS: 
ENDING: 109.900 
FOR THE PERIOD ENDING: 03/05/86 BEGINNING: 70.00 
JONES, JAYNE J. ELAPSED: 30.900 
ae SOUTR ELM LESS MAINT TIME: 0.00 
PM SS Se ae ee ee em eee 
NET HOURS FLOWN: 30.00 
HOTAL LEASED TIME: 30.00 


COMPUTED LEASE AMOUNT: 30.00 HRS x $11.00/HRS = $350.00 


MAINTENANCE PERFORMED 
DATE 


LABOR CHARGES PARTS CHARGES 
5705/86 $10.00 $5.00 
03/05/86 40.00 0.00 
TOTAL LMAINT : oo 0.0 
SUB TOTAL: 22 o, OU 


OTHER CHARGES AND CREDITS 


LOTARSOinE x: 
TOTAL DUE OWNER: 
MNFC CHECK # ENCLOSED IN THE AMOUNT OF $ DUE OWNER. 


Thank you, 


MNFC MANAGER 


Figure B.7_ MMNFC Monthly Lessor’s Statement. 
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MONTEREY NAVY FLYING CLUB 
806 AIRPORT ROAD 
MONTEREY, CA 93940 
(408) 372-7033 


INCOME STATEMENT 
BORShy S22 MONTH ENDING January 


REVENUE 
4941 MERCHANDISE SAL=S seach IGHiesorretes > 3,00G800 
4951 AIRCRAFT RENTAL INCOME 345.50 
4952 ChlAINCOME 0700 
8100 DUES INCOME 590'200 
S10 ELA ICN hae 456.00 
8190 MEMBERSHIP MEETING CHARGE 0.00 
6191 Spee DEEOSE EL 345.00 
8192 FUEL CHARGES 0.00 
8300 INTEREST INCOME S5o-7 6 
8301 REFUND OF AV-GAS TAX 0.00 
TOTAL REVENUE 5) See Seo 
EAPENSES 
5941 COST OF SGEIGh?t SUPPLIES SOnD Ss 125008 00 
6950 PAYMENTS TO AIRCRAFT LESSORS Sou GU 
7110 CONTRACTURAL SERVICES--ADMINISTRATIVE 0.00 
7120 CONTRACTURAL SERVICES--MAINTENANCE 546.89 
7130 (CONTRACTURAL SBERVICES=-CF I 0208 
7121 REIMBURSED LABOR--MAINTENANCE 0.00 
7511 RENT EXPENSE 200-00 
7512 GARBAGE EXPENSE 55.00 
15 S9e Gere Par ENSe ZS 
7520 TELEPHONE EXPENSE 54.385 
7521 POSTAGE EXPENSE 0200 
7522 MEMBERSHIP MEETING EXPENSE 0-90 
7701 AVIATION GAS EXPENSE Q.00 
7702 AVIATION OIL EXPENSE 0.00 
7703 AVIATION GAS CREDITS Q.00 
7110 “OFFICE SUPPEIES G00 
7711 MISCELLANEOUS EXPENSE 35.00 
7712 INTEREST EXPENSE 0.00 
7740 REPAIRS & MAINTENANCE--AIRCRAFT PARTS 0.00 
7741 REIMBURSED R & M -- AIRCRAFT PARTS 0.00 
7742 REIMBURSED R & M -- OUTSIDE SERVICES 0.00 
7810 AVIATION INSURANCE EXPENSE 134250 
7811 REIMBURSED AVIATION INSURANCE EXPENSE 0.00 
7812 LIABILITY INSURANCE EXPENSE 0.00 
7820 BONDING EXPENSE 0.00 
7930 AUDIT & ACCOUNTING EXPENSE 90.00 
9255 BAD DEBTS EXPENSE 0.00 


TOTAL EXPENSES $ 3,575.97 
NET INCOME or ( LOSS ) § 1,517.31 


Figure B.£8 MNFC Income Statement. 
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MONTEREY NAVY FLYING CLUB 


806 AIRPORT ROAD 


MONEEREY, Gh 93940 


(408) 372-7033 


BALANCE SHEET AS OF January 16, 


RSoels 
1110 G25 == s6nECKING 
ee CASH -= SAVINGS 
1210 eecOUNTse (RECEIVABLE -- MBRS 
2a peCOUNUsme Serr VvABLE <= LaSsORsS 
1341 POVENTOR Gees LIGHT SUPPLIES 
£530 PREEHEOSEREENSES -- INSURANCE 
Fo50 ie ee Asoc ~- AIRCRAFT 
b750 Eso aceUMULATED DEPRECIATION 
oS) Pee Ueacoe to s=- SHOP EQUIPMENT 
Ly spe LESS ACCUMULATED DEPRECIATION 
ROTAGr ASSL IS 

PeepiLitles 
2100 ACCOUNTS PAYABLE 
2130 PEUBERoOeoey, DEPOSITS 
2140 Reoomy & «OR ALRCRAFT [NSURANCE 
25.40 SOh ie (ent PAYABLES -=- NOTES 
2530 moh mek PAYAELES -<- INSURANCE 
2710 UNEARNED DUES 

TOTAL LIABILITIES 
NET WORTH 


RETAINED EARNINGS 


TOTAL LIABILITIES AND NET WORTH 


Figure B.9 MNFC Balance Sheet. 
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Po 


$ 1,234.50 
12724567 
1,234.56 


154,000.00 
27945. 50 
2,345.00 

0.00 


$ 2,847.37 
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MNFC Membership Breakdown Summary Report. 


Figure B.10 
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FLYING CLUB NAME: MONTEREY NAVY FLYING CLUB 
BALANCE SHEET AS OF: September 30, 19XX 


PREPARED BY: T. E. Woolcock, Manager 
eurrent 

104, 109 Cash S ler soo. 12 
2 I Investments, short term 3,412.46 
owe 132 Accounts Receivable B502e. 62 
153 Pivemtoules, resale Dee oes 
154 PAveMmEorLesS, alrcratt parts 0.00 
155 Inventories, fuel C200 

Total Current Assets Seopa cers S 


Non Current 


173 Furniture, fixtures S$ 900.00 
33 bess: Accum. Deprec. 900.00 
yt Vehicles a. 00 
181 bess: Accum. Deprec. 0.00 
7S Bldgs. & Facilities 0.00 
SS Less: Accum. Deprec. 0.00 
178 Aircraft owned 60,123.60 
188 fess: —Accun. Deprec- Ble t2.5l 


Total Non Current Assets S$ 28,881.29 


Other 
161 Puepard. expenses $ 0.00 
i 1 Long-term investments Seow 
195 Investments - funded reserves 0200 
Total Other Assets S O- 06 
Total Assets Demo, CUgmOZ 


Figure B.1la Annual Operating Statement - Balance Sheet. 
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FLYING CLUB NAME: 


BALANCE SHEET AS OF: September 30, 19XxX 


Current Liabilities 


Long Term 
2a2 


Net Worth 


299 
Zou 


Accounts payable 

Accrued wages _ 

Employee benefits & taxes 
Accrued annual leave 
Insurance 

Short term loans 


Total Current Liabilities 


Loans 


Total Liabilities 


BUNGEE Sem cs 
Retained earnings 


Total Net Worth 


Total Liabilities and Net Worth 


MONTEREY NAVY FLYING CLUB 


3 0.00 

60e33 5.5/2 
De OU 1 OZ 
So S220 dmod 


Figure B.11b Annual Operating Statement - Balance Sheet (con't). 
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FLYING CLUB NAME: MONTEREY NAVY FLYING CLUB 


OPERATING STATEMENT 
FOR THE YEAR ENDED: September 30, 19XX 


SALES | | 
302 Pielgnesstippilles and accessories 
402 Less: Cost of flight supplies 


ema@eaccessories 
Gross Profit on Sales 


SALE OF SERVICES NON-VA 


303 [iccrare rental 
305 iemelont instruction 
307 cmouna instrucsion 


Total Non-VA 


SALE OF SeRVICES VA 


304 Aircraft rental 

306 igoteeegnt instruction 

308 Ground instruction 
Total VA 


Total Sale of Services 


TOTAL SALES 


DUN Bet shan RNS 


Personnel Costs 


603 Salaries and wages-admin 

604 Salaries and wages-maint 

630 SOGra SeCurity 

631 Retirement annuity contributions 

652 Group comprehensive medica 
SemeneDUuLLOn | 

S33 Peeemement lite ansurance 
Gomeribution 

B22 Annual leave 

a3 sick léave 


Total Personnel Cost 


Operating Costs 


Non-VA 
423 Aircraft rental 
427 Ground instruction 
Total Non-VA 
VA 
424 Aircraft rental 
428 Ground instruction 


Total VA 


oF 
See Os | 


Seeley 2 feet 9 
14,834.29 


$ 1,440.90 


$ Lae cst 


S 0.00 
0.00 
0.00 
$ 0.00 


Selo, (02-5. 


Se 2ol 7 a45. 21 


Selo lzo eZ 
Zi ss. 50 
0.00 

0.00 


0.00 


0.00 
0.00 


0.00 
S 40,863.42 


$ 42,803.95 
0.0 


00 

S$ 42,803.95 
$ O20 
0.00 

$ 0.00 


Figure B.12a Annual Operating Statement - Income Statement. 
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FLY 
OPE 
FOR 


Depreclation 
762 
ors 


763 
165 


Other Income 
Sep 
569 


Other Expens 


oa 


Figure B.12b Annual Operating Statement - Income Statement (con’t). 


ING CLUB NAME: 
RATING STATEMENT 
THE YEAR ENDING: 


OTHER. DIRECT 
Gasoline 
Ck 
Storage and tiedown 
Maintenance-routine 
Maintenance-overhaul 
Utilities and rent 
Telephone and postage 
Travel and per diem 
Be ce and transportation 
See es . 
Insurance premiums 


Total Other Direct 


Total Operating Costs 
and Other Direct 


TOTAL OPERATING COSTS 
PUrni PUReps EUXElines ss edp.c 
Ventciles alll 
Bulldings and facilities 
Aircraft 


Total Depreclation 


Total Direct Expense 


Other dues and assessments 
Contributions and donations 
Interest Income 

Insurance proceeds 


Total Other Income 
€ 4 
Miscellaneous other enpense 
Interest expense 
Bad debt expense 


Total Other Expense 


NET INCOME (LOSS) 


S72 


September 30, 19XX 


MONTEREY NAVY FLYING CLUB 


So oe 7es.15 
1,422.65 
0.00 

17 , 53ee02 
0.00 


6/29 ec 
2, 00gn7 5 
0.00 
0.00 


0.00 
PZ 1 90moS 


Seles, 69 /ea7 


See c oO 2 


$ 0.00 
0.00 

0.00 

7,0 ooo 


S$ fet oe 


S$ 231,160.40 


S$ 45,388.25 
0.00 


ip log Ot 
0.00 


S$ 46,495.26 


S 12, 963-9¢ 
1250 


> 
oS. 
S73 032.79 
S$ 3,445.28 


FLYING CLUB NAME: MONTEREY NAVY FLYING CLUB 
STATEMENT OF NET WORTH 


AS OF: September 30, 19XxX 
299 hes 
Funded Reserves Retained Earnings 
Beginning of year balance 9 O2oe Slo? eee0 .24 
Add: Profit (999) 0.00 3,445.28 


Deduct: Loss (999) 


Transfer of retained earnings 
to funded reserve OnoG 5,00 


Transter of retained earnings 


from funded reserve 0.00 0.00 


End of year balances $ 0.00 S 60765 .52 


Figure B.13. Annual Statement of Net Worth. 
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Figure B.14 Annual Summary of Insurance Coverage. 
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APPENDIX C 
MNFC DATA DICTIONARY 


Within the following pages the reader is provided various items to assist in his 
understanding of the physical structure of the Monterey Navy Flying Club (MNFC) 


Management Information Svstem (MIS). The contents of this appendix are: 


* Svstem Hierarchy Charts (Figure C.1 through Figure C.3) 

* A listing of all current Tables in the MNFC MIS Database 

* A listing of all current Report formats in the MNFC MIS Database 
* A listing of ail current Entry/Edit Forms in the MNFC MIS 

* Database table compositions 

* A listing of Entry/Edit Forms and associated tables 

* A listing of Reports and associated tables 


* A listing of Database Attributes 


The reader’s attention is directed to the original prototype design specifications 


[Ref. 1] for definitions and table compositions listed but not contained in this appendix. 






1.8 


MANAGE NAVY 
FLYING CLUB 







see 


GENERATE 
REQUIRED REPORTS 










MAINTAIN 
CLUB RECORDS 






Figure C.l1 MEINFC Svstem Hierarchy Chart. 
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MNFC System Hierarchy Chart (con’t). 


Figure G2 
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Figure C.3 
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Monterey Navy Flying Club 


Management Information System Database 


Tables 
A/C_HRS A/CMAINT A'C_REC AP_PAID 
ACCT_REC AP_CHG ACCT _ PAY ARGGrisl 
APPDHIST AP_TEMP BAL JOUR BATESHE® 
BILLTEMP CAP_ASET CHGHIST EARNINGS 
EXPENSE EXPoRist PLY dais Poet EC 
FORMS HOURHIST INC_HIST INCOME 
INST_REC INSTHIST JOURHIST LES ACCT 
MAINHIST MBR_ SUM MEM CHG MEM _FLT 
MEM_PAY MEM REC PAYHIST REP ORmels 
TEMP_HRS 
Reports 
A/C_STAT AGED_AR BALSHET1 
BALSHEd 2 INCSTMT1 INCSTMT2 
INSTSTMT INS SUM CES ST Ma 
MAINT MBR_BKDN MEM_ BILL 
MGR_RPT OPSREF! OPSKRE TZ 
OPSRPT3 OPSRPT4 OPSRPT5 
ROSTER 
Forms 
A/C_FORM ADDBALFM ADDEARFEM 
ADJAPDFM ADJCFIFM ADJCHGEM 
ADJEXPFM ADJFLTHR ADJINCFM 
ADJMBRFL ADJMBRFM ADJMEMFM 
ADJUSTFM CHGFORM CRED AgG 
CRED PUR FLTHRSFEM HOB_FORM 
LES FORM MAINTFRM MEM_FORM 
PAYFORM 
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Table: A/C_HRS 
Read Password: NO 
Modify Password: NO 


Column definitions 


= Name 

l A/C_NUM 

eC CUM_HRS 

3 HOB_END 

4 HOBSTART 
5 BOB USED 

6 HOBMAINT 
7 HOB NET 

8 HOBOWNER 
9 HOBLEASE 


10 LEASEAMT 
11 TOTMAINT 


Table: A/‘CMAINT 
Read Password: NO 
Modifv Password: NO 


Column definitions 


rs Name 

l A;C_NUM 

2 INVO NUM 
3 LABOR_HR 
4 LABR_CHG 
S PART CHG 
6 A/C_DATE 
i SOURCE 


Composition of Database Tables 


Type 


TERT 
REAL 
REAL 
REAL 
REAL 
REAL 
ROSIE 
REAL 
REAL 


DOLLAR 
DOLLAR 


Type 


alk 
ee 
REAL 


DOLLAR 
DOLLAR 


DATE 
er 


Length Key 


6 characters Yes 
1 value(s) 
1 value(s) 
| value(s) 
1 value(s) 
| value(s) 
1 value(s) 
1 value(s) 
| value(s) 
1 value(s) 


1 value(s) 


Length Key 


6 characters ees 
4 characters 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 


50 characters 


oe 


Table: A/C_REC 
Read Password: NO 


Modify Password: NO 


Column definitions 


ct: 


Name 
A;C_NUM 
Tees 
YEAR 
MODEL 
PASSEAT 
NO_ENG 
HULLVAL 
bee eae 
LIABPREM 
TOTPREM 
[INSSTART 
[NSSTOP 
LEAS RAT 
RENT_RAT 
eis gs UES 
BOOK _VAL 
Pee 2D 
DEP TERY 
DATE _GOT 


Type 

TES 
TE 
TEV 
TENG 
eA 


[NeIUTS Grito i 


DOLLAR 
DOUEAK 
DOLLAR 
DOLLAR 
Dee 

DATE 

DOLLAR 
DOUEAIX 
DOLLAR 
DOLREAT. 
DOLLAR 


INTEGER 


DATE 


Length 

6 characters 
6 characters 
4 characters 
6 characters 
6 characters 
| value(s) 

1 value(s) 

| value(s) 

| value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

| value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 


1 value(s) 


100 


Key 


Table: AP_PAID 
Read Password: NO 


Modify Password: NO 


Column definitions 


# 


| 
2 
3 
4 


Name 


VENDNO 
PD:DATE 
ED:AMT 
CHECK:NO 


acl: ACCT REC 
Read Password: NO 


Modify Password: NO 


Column definitions 


i 


Oo CO NHN DH ON FR WN — 


Ce | 
mn BR Ww WN — © 


Name 


WHO/WHAT 
AR_DATE 
AMOUNT 
ACCT NUM 
MEM _ NUM 
LESOR_NU 
CURR_BAL 
BAL:30 
BAL:60 
BAL:90 
BALFWD30 
BALFWD60 
BALFWD90 
SUM60+ 90 
BAL_FWD 


Type 


INTEGER 


DATE 
DOLLAR 


INTEGER 


Type 


rea 
DATE 
DOLLAR 
eal 
Dex) 
ee! 
DOLLAR 
DOLLAR 
DOLLAR 
DOLLAR 
DOLLAR 
DOLLAR 
DOLLAR 
DOLLAR 
DOLLAR 


Length 


1 value(s) 
1 value(s) 
1 value(s) 


1 value(s) 


Length 


20 characters 
1 value(s) 

1 value(s) 

4 characters 
4 characters 
4 characters 
1 value(s) 

1 value(s) 

1 value(s) 

I value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 


1 value(s) 
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Key 


Key 


Yes 
Yes 
Yes 


Table: AP_CHG 
Read Password: NO 


Modify Password: NO 


Column definitions 


df 
ae 


in Rt Ww pO ee 


Name 


VENDNO 
PRODUCT 
PD Ale 
T:PRICE 
INV:NO 


Table: ACCT PAY 
Read Password: NO 


Modify Password: NO 


Column definitions 


# 


Oo CoO nN DWN OO DR W YN — 


— #8 pet 
—_— & 


Name 


VENDNO 
VNL:NAME 
VNF:NAME 
VEN:MI 
VEN_STRT 
Che 
STATE 
ZAPEODE 
PHONE 
CURRBAL 
POSTDATE 


Type 


[EGE 
TEXT 
DATE 
DOLLAR 
TEXT 


Type 


INTEGER 
Tea 
Ea 
JT. Ge 
TET 
heh 
TE 
TE 
Tien 
DOLLAR 
DATE 


Length 


1 value(s) 
20 characters 
1 VALUE(s) 
1 value(s) 


15 characters 


Length 


1 value(s) 

15 characters 
15 characters 
2 characters 
20 characters 
15 characters 
2 characters 
5 charcaters 
13 characters 
1 value(s) 


1 value(s) 
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Key 


Yes 


Key 


Table: APCGHIST 
Read Password: NO 
Modify Password: NO 


Column definitions 


# 


rn BR W KO — 


Name 


VENDNO 
PRODUCT 
P:DATE 

i: RRIGE 
INV:NO 


Table: APPDHIST 


Read Password: NO 
Modify Password: NO 


Column definitions 


H 
us 


mS Ww NO — 


Name 


VENDNO 


PD:DATE 
PD:AMT 


CHECK:NO 


Type 


INTEGER 
TEXT 
DATE 
DOLLAR 
TEXT 


Type 


INTEGER 
DATE 
DOLLAR 
INTEGER 


Length 


1 value(s) 
20 characters 
| VALUE(s) 
1 value(s) 


15 characters 


Length 


| value(s) 
1 value(s) 
| value(s) 


1 value(s) 
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Key 


Yes 


Key 


Table: AP_TEMP 
Read Password: NO 
Modify Password: NO 


Column definitions 


# Name 

I VENDNO 
2 INV:NO 

8 P:DATE 

4 TPeRIGE 
5 PD:DATE 
6 


PD:AMT 


Table: BAL_JOUR 
Read Password: NO 
Modify Password: NO 


Column definitions 


# Name 

l ACCT NUM 
2 ACCTNAME 
5 DOL:AMT 

4 TX:DATE 

5 TX:CODE 


Type 


INTEGER 
ero 
DATE 
DOLLAR 
DATE 
DOLLAR 


Type 


TEXT 
TEXT 
DOLLAR 
DATE 
eon 


Length Key 


| value(s) Yes 
15 characters 

1 value(s) 

1 value(s) 

1 value(s) 


1 value(s) 


Length Key 


4 characters Yes 
37 characters 

1 value(s) 

1 value(s) 


1 character 
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iawie; BAL SHET 
Read Password: NO 
Modify Password: NO 


Column definitions 


4 Name 

l ACCT NUM 
Z ACCTNAME 
3 BALANCE 

4 BAL:DATE 


Table: BILLTEMP 
Read Password: NO 
Modify Password: NO 


Column definitions 


# Name 

l MEM_NUM 
2 INVO NUM 
3 TRANDATE 
4 CHARGES 

5 PAYMENTS 
6 DESCRIPT 


Type 


WexT 
TEXT 
DOLLAR 
DATE 


Type 


ero 
TEXT 
DATE 
DOLLAR 
DOLLAR 
eT 


Length Key 
Avcharacters Yes 
37 characters 

1 value(s) 

1 value(s) 

Length Key 
4 characters Yes 


4 characters 
1 value(s) 
1 value(s) 
1 value(s) 


20 characters 
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Table: CAP_ASET 
Read Password: NO 
Modify Password: NO 


Column definitions 


ro Name 


IDENT 
ACCT_NUM 
INIT_CST 
DATE_ACQ 
DEP_TERM 
ACC_DEP 


ON Cr HR WH NO — 


Table: GHGHIST 
Read Password: NO 
Modify Password: NO 


Column definitions 
# Name 


MEM_ NUM 
INVO_NUM 
TRANDATE 
CHARGES 
DESCRIPT 
HRS_FLON 
A/C_NUM 


ee > C.D © Sn OO 


Type 


Text 
TEXT 
DOLLAR 
DATE 
INTEGER 
DOLLAR 


Type 


es) 
TEXT 
DATE 
DOLLAR 
TEXT 
REAL 
TEXT 


Length Key 
50 characters Yes 
4 characters Yes 
1 value(s) 
1 value(s) 
1 value(s) 
1 value(s) 
Length Key 
4 characters Yes 
4 characters Yes 
1 value(s) 
1 value(s) 


20 characters 
1 value(s) 


6 characters 
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Table: EARNINGS 
Read Password: NO 
Modify Password: NO 


Column definitions 


- Name 

I ACCT NUM 
2 ACCTNAME 
3 BALANCE 

4 BAL:DATE 


Table: EXPENSE 
Read Password: NO 
Modifv Password: NO 


Column definitions 


7 Name 

l ACCT NUM 
2 ACCTNAME 
3 EXP:AMT 

4 TX:DATE 

5 iC CODE 


Type 


TEXT 
TEXT 
DOLLAR 
Devs 


Type 


TEXT 
TEXT 
DOLLAR 
DATE 
ie) 


Length Key 


4 characters Yes 


37 characters 


1 value(s) 
1 value(s) 
Length Key 
4 characters Yes 


37 characters 
| value(s) 
1 value(s) 


1 character 
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Table: EXP ages 1 
Read Password: NO 


Modify Password: NO 


Column definitions 


= 


in RHR WH NO — 


Name 


ACCT_NUM 
ACCTNAME 
EXP:AMT 
TX:DATE 
TX:CODE 


Table: PLISHIst 
Read Password: NO 


Modify Password: NO 


Column definitions 


+ 


I 
2 
5 
4 


Name 
FLTDATE 
CATEGORY 
FAA CERT 
FPEISERS 


Type 


TES 
TE2eh 
DOLLAR 
DATE 
TEXT 


Type 

DATE 
TEXT 
TEXT 
REAL 


Length Key 


4 characters Yes 
37 characters 

I value(s) 

1 value(s) 


1 character 


Length Key 
1 value(s) 
2 characters Yes 
4 characters Yes 
1 value(s) 
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able: FLT REC 
Read Password: NO 
Modify Password: NO 


Column definitions 


# Name Type Length Key 
1 FLTDATE DATE | value(s) 

e met HRS REA 1 value(s) 

3 CAMEGORY $$TEXT 2 characters Yes 
4 FAA_CERT ies] 4 characters Yes 
5 A/C_NUM Tie) 6 characters 


Table: HOURHIST 
Read Password: NO 
Modify Password: NO 


Column definitions 


# Name Type Length Key 
I A/C_NUM TEXT 6 characters Yes 
2 CUM_HRS REAL 1 value(s) 
3 HOB_END REAL 1 value(s) 
4 HOBSTART REAL 1 value(s) 
5 HOB_USED REAL 1 value(s) 
6 HOBMAINT REAL 1 value(s) 
i HOB_NET REAL 1 value(s) 
8 HOBOWNER- REAL 1 value(s) 
9 HOBLEASE REAL | value(s) 
10 LEASEAMT DOLLAR 1 value(s) 





109 


Table: INC_HIST 
Read Password: NO 
Modify Password: NO 


Column definitions 


ra Name 

l ACCT _ NUM 
2 ACCTNAME 
3 REV:AMT 

4 TX:DATE 

5 TX:CODE 


Table: INCOME 
Read Password: NO 
Modifv Password: NO 


Column definitions 


# Name 

l ACCT_NUM 
Zz ACCTNAME 
3 REV:AMT 

4 TX:DATE 

5 TX:CODE 


Type 


TEXT 
TEXT 
DOLLAR 
DATE 
Te 


Type 


TEXT 
Text 
DOLLAR 
DATE 
Ee 


Length Key 
4 characters Yes 
37 characters 

1 value(s) 

1 value(s) 

1 character 

Length Key 
4 characters Yes 


37 characters 
1 value(s) 
1 value(s) 


1 character 
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Table: INST_REC 
Read Password: NO 
Modify Password: NO 


Column definitions 


+ Name Type Length Key 
l INST NUM eT 4 characters nes 
2 TRANDATE £DATE 1 value(s) 

3 MEM NUM TEAST 4 characters Yes 
4 HRS_FLON REAL 1 value(s) 

5 A/C_NUM PE Or 6 characters 

6 AMOUNT DOLLAR 1 value(s) 

i INVO_NUM — TEXT 4 characters Yes 


Table: INSTHIST 
Read Password: NO 
Modify Password: NO 


Column definitions 


# Name Type Length Key 
l INST_NUM TEXT 4 characters Yes 
2 TRANDATE DATE 1 value(s) 

3 MEM NUM TEXT 4 characters Yes 
4 HRS FLON REAL 1 value(s) 

5) A/C_NUM TEXT 6 characters 

6 AMOUNT DOLLAR 1 value(s) 

7 INVO_NUM TEAT 4 characters Yes 
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Table: JOURHIST 
Read Password: NO 


Modify Password: NO 


Column definitions 


= 


wm Bm Wh - 


Name 


ACCT NUM 
ACCTNAME 
DOL:AMT 
TX:DATE 
TX:CODE 


Table: LES ACCT 
Read Password: NO 


Modify Password: NO 


Column definitions 


Oo CO NH NA KR WwW PPO — 


— pam 
— © 


Name 


LESOR_NU 
L:NAME 
F:NAME 
MID_INIL 
SSN 
STREET 
CITY 
STATE 
ZIPCODE 
PHONE 
A/C_NUM 


Type 


TEXT 
Tea, 


DOLLAR 


DATE 
TEXT 


Type 


TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
eer 
EAT 
TEXT 
TEXT 


Length 


4 characters 
37 characters 
1 value(s) 

1 value(s) 


1 character 


Length 


4 characters 
15 characters 
15 characters 
2 characters 
11 characters 
20 characters 
15 characters 
2 characters 
5 characters 
13 characters 


6 characters 


HZ 


Key 


Yes 


Key 


Yes 


Yes 


Table: MAINHIST 
Read Password: NO 


Modify Password: NO 


Column definitions 


= 


“I HN GT kr WY WN — 


Name 


AIC_NUM 
INVO_NUM 
LABOR_HR 
LAB_CHG 
PART CHG 
A/C_DATE 
SOURCE 


Table: MBR_SUM 
Read Password: NO 


Modify Password: NO 


Column definitions 


= 


Oo OH HD OH KR WY WN — 


peepee ee pee 
WwW No —_ © 


Name 


SUMDATE 
CATEGORY 
CATNAME 
STUDCT 
STUDHRS 
PRIVCT 
PRIVHRS 
COMMCT 
COMMHRS 
CEICr 
CFIHRS 
TOTCOUNT 
TOTHOURS 


Type 


EET 
TEXT 
REAL 
DOLLAR 
DOLLAR 
DATE 
TEXT 


Type 


DATE 
Te 
Te<! 
INTEGER 
REAL 
INTEGER 
REAL 
INTEGER 
REAL 
INTEGER 
REAL 
(INTEGER 
REAL 


Length 


4 characters 
4 characters 
| value(s) 
1 value(s) 
1 value(s) 
1 value(s) 


50 characters 


Length 


1 value(s) 

2 characters 
20 characters 
1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 

1 value(s) 


1 value(s) 
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Yes 


Table: MEM_CHG 
Read Password: NO 
Modify Password: NO 


Column definitions 


ze Name 


MEM NUM 
INVO_NUM 
TRANDATE 
CHARGES 
DESCRIPT 
HRS FLON 
A/C_NUM 


JI WN Tr LR W YN + 


Table: MEM_FLT 
Read Password: NO 
Modify Password: NO 


Column definitions 
# Name 


MEM_NUM 
CATEGORY 
FAA_CERT 
FLT_HRS 
LAST_FLT 
LAST_A/C 


Nm fh WwW WN = 


Type 


Teal 
TEXT 
DATE 
DOLLAR 
TEXT 
REAL 
TEXT 


Type 


TEXT 
TEXT 
TEXT 
REAL 
DATE 
TEXT 


Length 


4 characters 
4 characters 
1 value(s) 

1 value(s) 

20 characters 
1 value(s) 


6 characters 


Length 


4 characters 
2 characters 
4 characters 
1 value(s) 
1 value(s) 


6 characters 
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Key 


Yes 
Yes 





Table: MEM_REC 
Read Password: NO 


Modify Password: NO 


Column definitions 


7 


Oo CO nD HN NM HR W HO — 


pet mee 
— & 


Name 


MEM NUM 
INST_NUM 
L:NAME 
F:NAME 
MID_INIT 
SSN 
STREET 
eITY 
STATE 
ZIPCODE 
PHONE 
CATEGORY 
PNIT FEE 
Mey DEP 
MEM _STAT 
DUE_STAT 
CUR_MODS 
SOLLDUTY 
BIENNIAL 
MED_CERT 
MEDCLASS 
FAA CERT 
FAA CLAS 
MISHAP 


Type 


EXT 
Text 
TEXT 
LW EOh 
TEXT 
TEXT 
es], 
TEXT 
el 
RE 
eyo 
TEXT 
IRE 
El 
ea 
Te 
TEXT 
1S 
DATE 
DATE 
ea 
ea 
TET 
ee 


Length 


4 characters 
4 characters 
15 characters 
15 characters 
2 characters 
11 characters 
20 characters 
15 characters 
2 characters 
5 characters 
13 characters 
2 characters 
1 characters 
1 characters 
2 characters 
2 characters 
30 characters 
30 characters 
1 value(s) 

1 value(s) 

3 characters 
4 characters 
25 characters 


1 characters 
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Key 


Yes 
Yes 


Table: MEM_PAY 
Read Password: NO 
Modify Password: NO 


Column definitions 
# Name 


MEM_NUM 
CHK NUM 
TRANDATE 
PAYMENTS 
DESCRIPT 


in ff Ww Po — 


Table: PAYHIST 
Read Password: NO 
Modify Password: NO 


Column definitions 
re Name 


MEM_NUM 
CHK_NUM 
TRANDATE 
PAYMENTS 
DESCRIPT 


A BR WwW we — 


Type 


TES 
INTEGER 
DATE 
DOLLAR 
TES 


Type 


TEx 
INTEGER 
DATE 
DOLLAR 
eT 


Length Key 


4 characters Yes 
| value(s) 
1 value(s) 
1 value(s) 


20 characters 


Length Key 


4 characters Yes 
1 value(s) 
1 value(s) 
1 value(s) 


20 characters 
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iaple: TEMP HRS 
Read Password: NO 
Modify Password: NO 


Column definitions 


# Name Type 


CUM HRS REAL 
2 HOB_END REAL 
3. A/C_NUM TEXT 


Length Key 


1 value(s) 
| value(s) 


6 characters Yes 
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Application’s Entry/ Edit Form and Associated Table 


Form Name 


A/C_FORM 
ADDBALFM 
ADDEARFM 
ADJAPDFM 
ADJCFIFM 
ADJCHGFM 
ADJEXPFM 
ADJFLTHR 
ADJINCFM 
ADJMBRFL 
ADJMBRFM 
ADJUSTFM 
CHGFORM 
CRED_PAY 
CRED_PUR 
FLTHRSFM 
HOB_FORM 
LES FORM 
MAINTFRM 
MEM_FORM 
PAYFORM 


Associated Table 


(VARIABLE FORM) 
BAL_SHET 
EARNINGS 

AP PAID 

INST REC 
AP_CHG 

EXPENSE 
FLT_REC 

INCOME 
MEM_FLT 
MEM_CHG 
BAL_JOUR 
(VARIABLE FORM) 
(VARIABLE FORM) 
(VARIABLE FORM) 
A/C_HRS 
(VARIABLE FORM) 
LES ACCT 
A/CMAINT 
MEM_REC 
(VARIABLE FORM) 


Application’s Report Format and Associated Table 


Report Name Associated Table 


A/C_STAT 
AGED_AR 
BALSHETI 
BALSHET2 
INCSTMT1 
INCSTMT2 
INSTSMT 
INS_SUM 
LES STMT 
MAINT 


MBR_BKDN 


MEM _BILL 
MGR_RPT 
OPSRPTI1 
OPSRPT2 
OPSRPT3 
OPSRPT4 
OPSRPTS 
ROSTER 


tS 


A/C_HRS 
ACCT_REC 
BAL_SHET 
BAL_SHET 
EARNINGS 
EARNINGS 
INST_REC 
A/C_REC 
LES ACCT 
A/CMAINT 
MBR_SUM 
BILLTEMP 
MEM REC 
TEMP_HRS 
TEMP_HRS 
TEMP_HRS 
TEMP_HRS 
TEMP_HRS 
MEM_REC 


Name 
A/C_DATE 


A/C_NUM 


ACCTNAME 


ACCTNAME 


ACCT_NUM 


Database Attributes and Table Locations 


Type 
DATE 


Ja 


Tet 


TEXT 


TEA 


Length 


1 value(s) 


6 characters 


37 characters 


37 characters 


4 characters 
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Table 
MAINHIST 
A/CMAINT 
INST_REC 
A/CMAINT 
POmWR oS 
MEM_CHG 
BESSACCT 
PeETOREC 
INSTHIST 
A/C_REC 
MAINHIST 
TEMP_HRS 
GHGials] 
A/C_HRS 
BAL JOUR 
INCOME 
JOURHIST 
EXEENSE 
INC_HIST 
Exe Hist 
EARNINGS 
BAL _SHET 
EARNINGS 
INCOME 
BAL SHET 
CAP_ASET 
JOURHIST 
BAL JOUR 
Eerie 
EXPENSE 
ACCT_REC 
(NG@ZELEST 


Key 


yes 


ves 


yes 


yes 
yes 
yes 


yes 


yes 


Name 
ACC _DEP 


AMOUNT 


AR_DATE 
BAL:30 
BAL:60 
BAL:90 
BAL:DATE 


BALANCE 


BALFWD30 
BALFWD60 
BALFWD90 
BAL_FWD 
BIENNIAL 
BOOK_VAL 
CATEGORY 


CATNAME 
CFICT 
CFIHRS 


Type 
DOLLAR 


DOLLAR 


DATE 
DOLLAR 
DOLLAR 
DOLLAR 
DATE 


DOLLAR 


DOLLAR 
DOLLAR 
DOLLAR 
DOLLAR 
DATE 

DOLLAR 
TEXT 


TEXT 


INTEGER 


Eyevall 


Length 


1 value(s) 


1 value(s) 


| value(s) 
| value(s) 
1 value(s) 
1 value(s) 


1 value(s) 


1 value(s) 


1 value(s) 
1 value(s) 
1 value(s) 
1 value(s) 
1 value(s) 


1 value(s) 


Table 
CAP_ASET 
A CURE 
AEG) REC 
INSTAIST 
INST_REC 
eC TREC 
ACCT_REC 
ACCT_REC 
ACCT_REC 
BAL SHET 
EARNINGS 
BAL_SHET 
EARNINGS 
ACCT_REC 
ACCT _REC 
ACCT_REC 
AGET REC 
MEM_REC 
A/C_REC 


Pomaeacters PLT ist 


20 characters 
1 value(s) 


1 value(s) 
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MEM_FLT 
MBR_SUM 
MEM_REC 
FLT_REC 

MBR_SUM 
MBR_SUM 
MBR_SUM 


Key 


yes 


yes 
yes 


yes 


Name 
CHARGES 


CHECK:NO 


CHK_NUM 


CITY 


COLLDUTY 
COMMCT 
COMMHRS 
CUM_HRS 


CURRBAL 

CURR BAL 
CUR_MODS 
DATE_ACQ 
DATE_GOT 
DEP TERM 


DESCRIPT 


DOL:AMT 


DUE_STAT 
EXP:AMT 


Type 
DOLLAR 


INTEGER 


INTEGER 


TE a 


TEXT 
ENE RGER 
REAL 
REAL 


DOLLAR 
DOLLAR 
TET 
DATE 
DATE 
PE GER 


ee 


DOLLAR 


TES] 
DOLLAR 


Length 


1 value(s) 


1 value(s) 


1 value(s) 


15 characters 


30 characters 


1 value(s) 


1 value(s) 


1 value(s) 


1 value(s) 
1 value(s) 
30 characters 
1 value(s) 
1 value(s) 


1 value(s) 


20 characters 


1 value(s) 


2 characters 


1 value(s) 


122 


Table 
MEM_CHG 
CHGHIST 
BILLTEMP 
AP_PAID 
APPDHIST 
MEM_PAY 
PAYHIST 
BES ACCT 
MEM_REC 
ACCT_PAY 
MEM_REC 
MBR_SUM 
MBR_SUM 
HOURHIST 
TEMP_HRS 
A/C_HRS 
ACCT PAY 
ACCT_REC 
MEM_REC 
CAP_ASET 
AyiGak EC 
A/C_REC 
CAP_ASET 
MEM_CHG 
PAYHIST 
GHGHist 
MEM_PAY 
BILLTEMP 
BAL_ JOUR 
JOURHIST 
MEM_REC 
ED JE Jalil 


Key 


Name 
EXP:AMT 
F:NAME 
FAA CERT 
FAA CERT 
FAA CLAS 
FDATA 
FLTDATE 
Piet ks 
FNAME 
HOBLEASE 
HOBMAINT 
HOBOWNER 


HOBSTART 


HOB_END 


HOB_NET 


HOB_USED 


Type 


DOLLAR 


TEXT 


nex 


TEs 


Eon 


ihe 1 


DATE 


Ieee 


cea 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


Length 

1 value(s) 
Sreharacters 
4 characters 
4 characters 
25 characters 
80 characters 
1 value(s) 

1 value(s) 

8 characters 
1 value(s) 

1 value(s) 

1 value(s) 


1 value(s) 


1 value(s) 


1 value(s) 


1 value(s) 


ize 


Table 

Eee NSE 
LES ACCT 
MEM_REC 
Rete Hist 
Hi REC 
Mee vl REC 
MEM FLT 
Vilivt REC 
FORMS 
Bele Hist 
Per eREC 
Per ist 
MEM_FLT 
pe REE 
FORMS 
HOURHIST 
A/C_HRS 
A/C_HRS 
HOURHIST 
HOURHIST 
A/C_HRS 
A/C_HRS 
HOURHIST 
Tie MP FIRS 
A/C_HRS 
HOURHIST 
HOUREIST 
ENGAD LISS 
GES 
HOURHIST 


Key 


yes 
yes 
ves 


yes 


yes 


Name 
HRS_ FLON 


HULLPREM 
HULLVAL 
IDENT 
INIT_CST 
INIT_FEE 
INSSTART 
INSSTOP 
INST_NUM 


INV:NO 


INVO_NUM 


INVO_NUM 
KEY DEP 
L:NAME 


Type 
REAL 


DOLLAR 
DOLLAR 
TEXT 
DOLLAR 
TEXT 
DATE 
DATE 
TEXT 


TEXT 


TEXT 


etal: 
Ey 
mel 


Length 


| value(s) 


1 value(s) 

1 value(s) 

50 characters 
1 value(s) 

| characters 
1 value(s) 

1 value(s) 


4 characters 


15 characters 


4 characters 


4 characters 
1 characters 


15 characters 
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Table 
CHGHIST 
MEM_CHG 
INST_REC 
INSTHIST 
A/C_REC 
A/C_REC 
CAP_ASET 
CAP_ASET 
MEM. REC 
A/C_REC 
A/C_REC 
INST_REC 
MEM_REC 
INSTHIST 
AP_CHG 
AP_TEMP 
APCGHIST 
A/CMAINT 
BILLTEMP 
CHGHIST 
INSTHIST 
INST_REC 
MEM_CHG 
MAINHIST 
MEM_REC 
MEM_REC 
LES_ACCT 


Key 


yes 


yes 


yes 


yes 


yes 


yes 


yes 


Name 
LABOR_HR 


LABR_CHG 


LAST_A/C 
WAST FLT 
LEASEAMT 


LEAS_RAT 
LESOR_NU 


LIABPREM 
MEDCLASS 
MED_CERT 
MEM_NUM 


MEM STAT 
MID_INIT 


MISHAP 
MODEL 
NO_ENG 


Type 
REAL 


DOLLAR 


ex 
DATE 
DOLLAR 


DOLLAR 
ear 


DOLLAR 
Tena 
DATE 
Ei 


ex | 
eT 


TEN 
TEXT 
INTEGER 


Length 


| value(s) 


1 value(s) 


6 characters 
1 value(s) 


| value(s) 


1 value(s) 


4 characters 


1 value(s) 
3 characters 
1 value(s) 


4 characters 


1 characters 


2 characters 
1 characters 


6 characters 


1 value(s) 


es 


Table 
A/CMAINT 
MAINHIST 
MAINHIST 
A/CMAINT 
MEM_FLT 
MEM FLT 
A/C_HRS 
HOURHIST 
A/C_REC 
LES ACCT 
ACCT_REC 
A/C_REC 
MEM_REC 
MEM_REC 
CHGHIST 
BILLTEMP 
INST_REC 
MEM_PAY 
INSTHIST 
PAYHIST 
MEM_REC 
ACCT_REC 
MEM_FLT 
MEM_CHG 
MEM_REC 
MEM_REC 
LES ACCT 
MEM_REC 
A/C_REC 
A/C_REC 


Key: 


yes 


yes 
yes 


yes 


yes 
yes 
yes 
yes 
yes 
yes 


yes 


Name 
P:DATE 


PART CHG 


PASSEAT 
PAYMENTS 


PD:AMT 


PD:DATE 


PD:DATE 
PHONE 


POSTDATE 
PREP_INS 
PRIVCT 
PRIVHRS 
PRODUCT 


RDATA 
RENT_RAT 
REV:AMT 


Type 
DATE 


DOLLAR 


EX) 
DOLLAR 


DOLLAR 


DATE 


DATE 
TEXT 


DATE 
DOLLAR 
INTEGER 
REAL 
eS 


TEXT 
DOLLAR 
DOLLAR 


Length 


1 value(s) 


1 value(s) 


6 characters 


1 value(s) 


1 value(s) 


1 value(s) 


1 value(s) 


13 characters 


1 value(s) 
1 value(s) 
1 value(s) 
1 value(s) 


20 characters 
132 characters 


1 value(s) 


1 value(s) 
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Table 
AP_CHG 
APCGHIST 
AP_TEMP 
MAINHIST 
A/CMAINT 
A/C_REC 
MEM_PAY 
BILLTEMP 
PAYHIST 
APPDHIST 
AP_PAID 
AP_TEMP 
APPDHIST 
AP_TEMP 
AP_PAID 
MEM_REC 
ACCT _PAY 
LES ACCT 
ACCT _PAY 
A/C_REC 
MBR_ SUM 
MBR_SUM 
AP_CHG 
APCGHIST 
REPORTS 
A/C_REC 
INCOME 
INC_HIST 


Key 


Name 
RNAME 
SOURCE 
SOURCE 
SSN 


STATE 


SEREET 


STUDCT 
STUDHRS 
SUM60 + 90 
SUMDATE 
HEP RICE 


TOTCOUNT 
EOTHOURS 
TOTMAINT 
TOTPREM 

TRANDATE 


Type 

eee 
TEXT 
TEXT 
TEXT 


EXT 


es I 


NG Gist 
REAL 
DOLLAR 
DATE 
DOLLAR 


INTEGER 
REAL 
DOLLAR 
DOLLAR 
DATE 


Length 

8 characters 
50 characters 
50 characters 


11 characters 


2 characters 


20 characters 


1 value(s) 
1 value(s) 
1 value(s) 
1 value(s) 


1 value(s) 


1 value(s) 
1 value(s) 
1 value(s) 
1 value(s) 


1 value(s) 


127 


Table 
REPORTS 
MAINHIST 
A/CMAINT 
LES ACCT 
VMEVIERES 
LES ACCT 
MEM _ REC 
ACCT PAY 
LES_ACCT 
MEM_REC 
MBR_SUM 
MBR_SUM 
AGeT REC 
MBR_SUM 
Ewe err 
APCGHIST 
AP_TEMP 
MBR_SUM 
MBR_SUM 
A/C_HRS 
A/C_REC 
CHGHIST 
MEM PAY 
MEM CHG 
INSTHIST 
NST OREC 
BILLTEMP 
PAYHIST 


Key 


yes 


Name 
TXIGODE 


TX:DATE 


TYPE 
VEN: MI 
VENDNO 


VEN_STRT 
VNF:NAME 
VNL:NAME 
WHO/WHAT 
YEAR 
ZIPCODE 


Type 
TEXT 


DATE 


TE 
TEXT 
INTEGER 


TEXT 
ET 
TEXT 
TEXT 
TEE 
TEXT 


Length 


1 characters 


| value(s) 


6 characters 
2 characters 


1 value(s) 


20 characters 
15 characters 
15 characters 
20 characters 
4 characters 


5 characters 
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Table 
JOURHIST 
BAL_JOUR 
EXP_HIST 
INC_HIST 
INCOME 
EXPENSE 
INCOME 
EXP_HIST 
JOURHIST 
INC_HIST 
EXPENSE 
BAL_JOUR 
A/C_REC 
ACCT_PAY 
AP TEMP 
APCGHIST 
AP_PAID 
ACCT_PAY 
APPDHIST 
AP_CHG 
ACCT PAY 
ACCT_PAY 
ACCT_PAY 
ACCT_REC 
A/C_REC 
MEM_REC 
LES_ACCT 
ACCT_PAY 


Key 


yes 
yes 
ves 
yes 
yes 


yes 


APPENDIX D 
MODULE FUNCTIONAL DESCRIPTIONS 


The Monterey Navy Flying Club MIS Prototype design calls for one central 
relational database, named FLYCLUB, and five application programs which access 
FLYCLUB. Those applications are: 

e FLYSTART.APP -- Flying Club Startup Application 

e CLUB_MIS.APP -- Club’s Membership Information Application 

° CLUB_FIN.APP -- Club’s Financial Application 

e CLUB _PRT.APP -- Club’s Printing Application 

° CLUB_END.APP -- Club’s End-of-the-Month Processing Application. 
Each application consists of program modules called Command Files within the 
R:BASE 5000 language. Functional descriptions of each module (Command File), 


grouped by their associated application, are contained in this appendix. 


1 FLYSTART.APP 


KREAKRKKRKKERKEKRRKRKRKRAKERKAKRKKREKRRKARERERERRKRRKERKRKRRKARKRRRKEAKRRRKRARKRERKERARKRKRK 


Module: CEUBMIS .CMD 
Menu Option: MEMBERSHIP TRANSACTIONS 


Description: This module calls the first R:BASE popticetion Puogremt 
to use the FLYCLUB Database of the MNFC MIS Pro ease 
Syeeen The Membership Transactions menu is calle 
allewing the user to make entries, deletions, and 
modifications to membership records. 


Tables used: NONE 
Forms used: NONE 


KAAKKKKKAKRKKARKKKRAKKKAKKKKKRERKKE RRA RAK RAK AARKARKRERKA RA RARKAARKARKERKARK 

Module: CLUBFIN.CMD 

Menu Option: FINANCIAL TRANSACTIONS 

Description: This module calls the Financial Application program of the 
IiGeiiio Proeotype system. The Financial Transactions 
Mento wercueLed a Beets Use neEOmcnoose Wilch typical 
club financial transaction he desires to handle. 


Tables used: NONE 
Forms used: NONE 


KRAKKKKRAKKAKARKKEKKRKAKAKRKKKAKRKRKKAKRAAKRKRRAAKRKERAKRRERERRAAARRRAKRRRKRKRRRRKRRRKRKRRRRKAKRKKKK 
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Module: 


Menu Option: 


Description: 


Tables used: 
Forms used: 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


FLYMAINT. CMD 
AIRCRAFT MAINTENANCE/FLIGHT HOUR UPDATES 


This module allows the user the choice of entering 
aircraft maintenance transactions or update aircraft 
flight hours for a specific aircraft.” The user its shown 
a menu upon entry to the module and must provide the 
aircraft's tail number to access the database. 


A/C_HRS, A/CMAINT 
MAINTFRM, FLTHRSFM 


AC_UPDAT.CMD 
AIRCRAFT INVENTORY UPDATE 


This module is used by the club manager to either add 
the necessary data on @ach individuat@arrecrare placed 
in the MNFC inventory whether by lease or purchase. 
The manager is also able to delete an aircraft from 
the club's current inventory. 


A/C_HRS, CAP_ASET, LESUACT, A/GeaEe 
A/C_FORM, HOB_FORM, LES_FORM 


KEKAKKKEKKRERKKAKRRRKKKKKKKRKKKKKKKKRKRKKKRKAKKKERKKEKKKRKKKAKKKKKKKKRKRKKAKKEKKKREKKEKKE 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


CLUBPRT.CMD 
PRINT REPORTS/STATEMENTS 


This module calls the club's Printing epee e ce elee Menu. 
From this menu the manager can choose which bypeca® report 
or statement he desires printed. The report formats are 
located within the Reports Table of the FLYCLUB database. 


NONE 
NONE 


KAEKKKKKKKKKKKRKKRKKKKRKRKKKKRKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKKRKKRKKKKKKRAKK 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


CLUBEOMT . CMD 
END-OF-THE-MONTH TRANSACTIONS 


This module calls the End-of-the-Month Ape eee age Menu 
for the MNFC MIS system using the FLYCLUB database. The 
manager decides which function is required. Then from 
within this application all monthly bills are processed 
and accounts are posted and updated. Historical data 

is transferred to its appropriate database table during 
the execution of the individual processes. 


NONE 
NONE 


AAKKKKKKKKKAKKKAKKKKKKAKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKRKRKKKKKKKKKKKKAKAKKKARK 
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2. CLUB_MIS.APP 


RAKRKKKAKAAKKKKKRAKKAKKKRKKRKAKAKKRKKRKRKKKKRKKKKKKKKKRKAKRKRKKKKKAKRAKRKKKKKKKKAKKKKKARKER 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


ADD_MEM. CMD 
ENTER A NEW MEMBER RECORD 


This module utilizes a predesigned screen input form to 
enter new member personal data to the database. The form 
is recalled after each entry allowing the manager to make 
multiple additions to the membership rolls. 


MERE C 
NEMEPOR 


KRAEKKAEKKAKKEKKKKKKEKKEKRERRKEKKKREKKERREREKRKKERKKRKRKKRERKKKRKEKRRKRKRKKRRKEKRKAKKRK 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


EDIT_MEM.CMD 
EDIT/DELETE AN EXISTING MEMBER RECORD 


This module uses the same screen entry format as in 
adding a new member, but allows the user to change | 
any data currently held on a member. The user is given 
the last member data and can then either edit or delete 
the record. The member's last name or member number 
are used to retrieve the database record. 


MEVeREC 
Nee ORM 


KEAEKKAKKKKKAKKREKRKKKEKRKKRKEKRKKRKREKRKREKKRERKKRKERRRREKRREKRKERKKKRREERRKKRKRKRRKKRRAKKKRKE 


3. CLUB_FIN.APP 


KKEKEAKKEKKKAKKAKKRKKKKEKRKKRKKRERKKKEKREKERERRKARERKRKAKKRKAKRKRREREREKRRRERKEKRKRRAEKERERKRE 


Module: 
Menu Option: 


Description: 


Tables used: 


Forms used: 


EW Pec CMD 
PuGe aeMenBeER’ s CHARGES 


This module uses a R:BASE variable form to take individual 
charge sheet data from a member and post members rental 
cost, flight hours, instruction received, aircraft used, 
etc.. The member's cumulative flight hours and the 
plane's hours are updated. All income earned and expenses 
paid are posted to the appropriate tables. 


Deekee mel eecrG mnie o i  iiloteheC, INCOME, EXPENSE, 
B/GEREC A/C HRs), PLT OREC 
CHGFORM 


KRAKKKKKKKKAKKKAAKKRKKKRKKKKAKRAKKAKRKRKKKKERKAKKAKKEKKEKRKRERRERRAREKKEKKARRKAKKKAKE 
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Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


PUTPAY .CMD 
ENTER A MEMBER'S PAYMENTS 


This module uses a R:BASE variable form to enter receipt 
of a members payment on account. The member's last 

name soe member number 1s required to) initvalize the 
routine. 


MEM_REC, MEM_PAY, BAL_JOUR 
PAYFORM 


KRKAKRARERAAKKRKRRARARKEKRKRKRKKRRAKRRAKRKRRARRKRRARREREAKRKKRERRARRARRRRRRRRARRERKRRRRRARRRRK 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


CRED_BUY eM 
POST AN ACCOUNTS PAYABLE PURCHASE/ INTEREST 


This module allows the manager to enter all purchases 
made on credit to elther a new supplier/vendor or to an 
existing account. The manager must provide the Copnmee: 
account number for inventory/asset/expense account 
increases. All interest charged to an account must be 
entered labeling attribute "PRODUCT" as interest 

and attritube "INVOICE NUMBER" as zero. 


BAL_JOUR, EXPENSE, ACCT_PAY, AP_CHG 
CRED LEUR 


KKRARARARARRRRARKRRRARRRARKRRRERRARRARRERKRRARERRERRRAKRRRRRRERKRRERKRRRRKRRRRRRERRARRRRARE 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


CASH_BUY.CMD 
POST CASH PURCHASE OF SERVICES/GOODS 


This module provides the manager with a method to post 
check(cash) purchases made by the club. The transaction 
decreases the cash account and increases the inventory 
and expense accounts effected in the purchase. The 
manager must enter the correct account numbers to be 
credited/debted. 


BAL_JOUR, EXPENSE 
NONE 


KRAKRKKRRKEKRRRRERKRKEKRKKRRAKKRKRKRRAKERKAKKKRARARRAAKRKRRKERKRRAKRRERRAKRKRRRKRRRKAKRKRKRKRRRARKERRRRE 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


PD_ACCT CMD 
POST PAYMENT TO AN ACCOUNTS PAYABLE ACCOUNT 


This module allows the manager to enter payments made on 
accounts payable accounts. The eee must provide the 
creditor's account number or name, plus the payment 
data. A RBASE variable form is used for screen entry. 


BAL_JOUR, AP_PAID, ACCT_PAY 
CRED_PAY 


KRREREAKKKRAAKKRKERARRARKKKKKAKRARAKRRRKRKREKRARARRRERKRRKRKRKRKRERKKRERERKRERERKRKARKARKERKRKEKKRE 
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Module: 
Menu Option: 


Description: 


Tables used: 


Forms used: 


EDIT_CHG.CMD 
EDIT MEMBER CHARGE TRANSACTION 


This module allows editing or deleting of a member's 
charge to his account that may have been entered in 
error. The manager must know the member number, date 
Orci de, ,involce,cnatge sheet number to enter the 
Eheige. Ge smanager must indicate whether the error 
Vimalsegvercdupnaor tO Of after the End-of-the-Month 
billing. The module handles the transaction differently 
based upon the time of error discovery/corrective entry. 


MEM_REC, MEM_CHG, MEM_FLT, INST_REC, A/C_REC, INCOME, 
A/C_HRS, FLT_REC 

ADJMBRFM, ADJCFIFM, ADJINCFM, ADJEXPFM, FLTHRSFM 
ADJMBRFL, ADJFLTHR 


KAAEKKKKKKAKKKKEKKKRKKKKKRKRRKRRKRKRKRKAKRKKRRKRKRKEKRKKKAKRKEKRKKRKAKRKKRKKRKKRKKRKAKKAKKKKKKKKAKARKE 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


EDIT_PAY.CMD 
EDIT MEMBER PAYMENT TRANSACTION 


This module allows editing or See a member's 
payment to his account 1=f in error. The manager must 
indicate whether the error was discovered prior to 

or after the End-of-the-Month billing. The module 
handles the transaction differently based upon the 
time of error discovery/corrective entry. The manager 
must know the member's number and the original payment 
amount made and the amount of adjustment. 


Merenec, MEM PAY, BAL_JOUR 
ADJMEMFM, ADJUSTFM 


KAEAAKKAKKKAKKKAKKKKKKKKKKKKKKAKKKKKKKKRKAAKKKKAKAKRKKKKRKKKRAKKAKKRAKAAKRERKKAKAKKKE 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


EDETeAr. CMD 
EDIT ACCOUNTS PAYABLE PURCHASE 


This module allows ecg or deleting of purchases 
made to an accounts payable account. The manager 
provides the account numbers of the expense and asset 
BeecouUmts atrected by the change, plus Ehe amount of the 
adjustment to each account. 


Pecteray, BPaceJOUR, AP CHG, EXPENSE 
ROVGHGR, ADJUSTEM, ADJEXE EM 


KRAKAKKKAKKKKKKKKKKEKKKKKAKKAKKKAKKAKAKKKAKKKAKAKAKKAKAKKKAKKKAKKAKKAKKARKKKAKKKAKAKKAKKKE 


Module: 
Menu Option: 


Description: 


EDIT_PD.CMD 
EDIT PAYMENT TO AN ACCOUNTS PAYABLE ACCOUNT 


This module allows eoeer ue or dere ean of payments 
made to an accounts payable account. The manager must 
indicate whether the error was discovered prior to or 
after the End-of-the-Month transactions have been 
processed. Corrections to the accounts are handled 
differently based upon when the error was discovered 
and when the corrective entry was made. The manager 
must know the accounts eye? e account number and 
payment data concerning the correction. 
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Tables used: 
Forms used: 


ACCT_PAY, AP_PAID, BAL_JOUR, APe@He 
ADJAPDFM, ADJUSTFM 


KAKA KKAAARAKK ARK RARE RAERERERRERRRRRRRRRRERRRRRERRRRRRRRRRARRRRRRRKRRRRER 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


REV_EDIT.CMD 
REVENUE/SALE ACCOUNT ENTRY 


This module allows the manager to make eounensatiag 
entries to any revenue account. The manager must know 
the revenue account number to make the corrective entry. 
The user will be asked if the entry is a plus or minus 
transaction and the amount. 


EARNINGS, INCOME 
ADJINCFM, ADDEARFM 


KRRKKKRKKKRRRKRRRKKRRKKRRKRRKKRRRKRKRKRKRKRRRKRKKRRRKRKERKRKRRKKERRRKRRRRKRRRKKRRKRKREKRE 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


BAP LEDE Lene 
EXPENSE ACCOUNT ENTRY 


This module allows the manager to make SOnp ee Cae 
entries to any expense account. The manager must Know 
the expense account number to make the corrective entry. 
The user will be asked if the entry is a plus or minus 
transaction and the amount. 


EARNINGS, EXPENSE 
ADJEXPFM, ADDEARFM 


REKKKKKKRKKRKRKKKKRKRRRKRKKRKRRRRRKRKRRKRKRKRKRRRRRRKKRKRRRERRRRKRKRKRKRRRRKKKKAKRKRKKRRKKKER 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


ASSTEDIT.CMD 
ASSET ACCOUNT ENTRY 


This module allows the meee to make compensating 
entries to any asset account. The manager must know 
the asset account number to make the corrective entry. 
The module will ask if the entry is a plus or minus 
transaction and the amount. 


BAL _SHET, BAL_JOUR 
ADJUSTFM, ADDBALFM 


AKAKKKKRKKRKRKKKAKKKKKKKKAKKRKKKRKKRKKKRKKKRKKKRRAKKKRKAKRKKRKRKEKKRKRRRKRRAKRKAKK 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


LIABEDIT.CMD 
LIABILITY ACCOUNT ENTRY 


This module allows the manager to make Some ens eae 
entries to any liability account. The manager must know 
the account number to make the corrective entry. 

The module will ask if the entry Ysyagolus or minus 
transaction and the amount. 


BAL_SHET, BAL_JOUR 
ADJUSTFM, ADDBALFM 


KRRKRKKKRKRKKKKKKRKKRKKKRKRKRKKRKKKKRKRREKRRKRKRKRKRRKKRKRKRRKRRKRRKARKRRRRRRKRRKRRKRRRRKRRREKE 
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4. CLUB_PRT.APP 


KAKKKKAKKAKKKKKKKAKKKKAKKKAKRKKKAKRKKEKRKEKKKRKKRKRKKKRKRKRKRRRRKRRKARKRAKRRKRKRRAKRKKEKRKKKKKE 


Module: 
Menu Option: 


Description: 


Table used: 
Forms used: 
Report used: 


ROS@eRn. Cad 

PRINT MEMBER ROSTER 

This module prepares the system printer and gathers the 
necessary data from the membership table to print the 
Monterey Navy ede Membership Roster which will 
include both the active and inactive membership. 

MEM_REC 

NONE 

CLUB ROSTER 


KRAKRKEKKRKKKAKKKKRKKRKRKKRKRKRKRKRKARAKRKRRRRRRKRREKRKRRKRRRKRKRKARRRKERRRARARRKKRKRRRRRAKARRK 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 
Report used: 


MGR_UPRT.CMD 
PRINT MANAGER'S MONTHLY REPORT 


This module prepares the Reneeey Manager's Report. | 
Tne + CoOuuNMUsteDencOMmoletea diter the no DEY billing 
processes have been accomplished, otherwise, th 
will be inaccurate (at a minimum, a month old). 


Bavwonet, EAMMENGS, FULLHIST, MEM_REC 
NONE 
MGRERE I 


e data 


KRAEAERKERERKKKKARKERKRERKRKKKARKERRRRRKRKRRKRKRRRERRRRRRKRRRRRRRKRKRRKRRRERRRKRRKRARRRRKKKRE 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 
Report used: 


ACSTAT.CMD 
PRINT A/C INVENTORY & STATUS REPORT 


This module prints the Aircraft Inventory and Status 
Report. The module also updates the A/C_HRS table and 
readies 1t for the next month's entries. 


A/C_HRS 
PoLHRoFt 
A/C_STAT 


KRAEKREKKEKRKRKKKKERKERKRKKRRAKREKRKRKRKKRARERKERKERKRKRKAKARRKRKRKRKAKRKERERKERKERKKRKERRKKEKAERKKR 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 
Report used: 


PRIMEMBD.CMD 
PRINT MEMBERSHIP BREAKDOWN 
This module Buereres the Membership Breakdown Report 


spew eng which category of member, such as Naval Officer, 
Army Officer, has flown for how many hours over the past 
year per FAA certification. 

MBR_SUM 

NONE 

MBR_BKDN 


KRAKRKEKKKKAKKKKRKKRKRKRKAKEKERRKRKKKAKREKRREKRRRAKKARRRKKRERARRRRKRRRKKRRRRRKRRKRRAKAKRRKKK 
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Module: 


Menu Option: 


Description: 


Tables used: 


Forms used: 


Report used: 


OPSo EME. CMD 
PRINT ANNUAL OPERATING STATEMENT INPUTS 


This module produces peude Inputs foOmethen h#e quasnec 
operating statements including statement of net worth 
for the annual BGO E input in accordance with CNO 
INST. This report must be printed after the monthly 
postings in order for the data to be accurate. 


TEMP_HRS is listed as the associated table for this 
report. This relationship allows ehewuse Go: tie 
report formatter to use data computed in this module 
in the report. 


aa” EARNINGS 
0 
OPSRPT1, OPSRFIZ, OPSRPTS, OFSRPT4) Cbs Eee 


KRAKKAKAKKKKRKEREKKKKKAKRKARKRKKRKRKRKAKKRRAKRKRKKRKRKRKRKKKKKRKKKRKARREKKRKERKKERKKRKAKKKKKAKRK 


Module: 


Menu Option: 


Description: 


Tables used: 


Forms used: 


Report used: 


INS_SUM. CMD 
PRINT SUMMARY OF INSURANCE 


This module prepares the Summary of Insurance on all 
alrcratt ih) Ghesemmnent a Coa Ents Gepoh tis 
one of the required annual report inputs. 


A/C_REC 
NONE 
INS=suM 


KRAKRKKKKKKKKKKAKAKKAKAKRKKAKAKAKRKAKKKKKKKKKKRKKRKRKKRKKRKKRKKRRKRKAKRKKRRKRRKAKRKRKAKRKRKRKKAKKKKKKARKK 


Module: 


Menu Option: 


Description: 


Tables used: 


Forms used: 


Report used: 


AGED_AR.CMD 
PRINT AGED ACCOUNTS RECEIVABLE 


This module prepares and prints the Summary of Aged 
accounts receivable accounts and their balances. 


MEM_REC ,, ACETIREC 
NONE 
AGED_AR 


KRAKRKAKKAKKKKKKKKKAKKKAKKKKKAKKAKKAKKKRKRAKKKEKRAKKRKAKKRKAKKRKKRKKRKKKRKKRKRKKKAKRKKAKKAKK 


Module: 


Menu Option: 


Description: 


Tables used: 


Forms used: 


Report used: 


PRT_BAL. CMD 
PRINT BALANCE SHEET 


This module takes the information located in the Balance 
Sheet table and Bed and prints a clirnent Balance 
Sheet. This must be done after the monthly postings. 


BAL_SHET 
NONE 
BALSHET 


KKAKKKKKKKKKKKKKAKKAKRKKKKAKKKAKAKKAKKKAKKKAKKKKAKKAKKAKKKKKAKRKRKKRRAKKKAKKKKARKKR 
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Module: 


Menu Option: 


Description: 


Tables used: 


Forms used: 


Report used: 


PRT_INC.CMD 
PRINT INCOME STATEMENT 


This module prepares and prints the Income Statement 
ee the last monthly update to the EARNINGS 
Fae. Msweees NOt decount for entries made after 
monthly updates...only accurate as of the last posting 
and 1s normally printed at the end of the year. 


The Income Statement should be printed prior to the | 
entry of the new year transactions and reinitialization 
of the database. 


EARNINGS 
NONE 
INCSTMT 


KREKEKKKKKKKKKKAKKKKAKKRKEKKRKRRKKKKKKRKRRKRKRKRERRRKRKKRKKRKKKRKAKKKKKRRKKRKRRKKKKRKERAKKKKK 


5. CLUB_END.APP 


KRAKKKKKKKKKKKKRKKRKRKEKRKERKRRERRRRERRRERERRRKRRERERKRRERRKEKRKRRERRKKRRRRRRERKRERERKKR 


Module: 


Menu Option: 


Description: 


Tables used: 


Forms used: 


REOCCUR.CMD 
POSTING REOCCURRING CHARGES 


This module post reoccurring charges to the member's 
charge account. The manager will note whether both 
the monthly dues and the member meeting charges are to 
be posted or just one to be posted for each member. 


MEM_LREC, MEM_CHG 
NONE 


RAKEKKAKKKKKKKKKKKKEKKREKRERKKRKKRERREKRKKRKKKKRKKKRKAKKKKKKRKKKKRKKRREKKKKKRKKK 


Module: 


Menu Option: 


Description: 


END_MON.CMD 
POST MONTHLY JOURNAL ENTRIES 


This module post the monthly journal entries of most 
database tables and places account totals in the 
general purpose tables. Then the journal entries are 
Peeeee Dimechei nm assoOclacted Niscomicdieraate and the 
ables are prepared for the next month's transactions. 


Somemtaoleswane posted and then placed in historical 

PootecmaurinGuesecuti1on Of sanother module (eq. member 
charges and payments tables posted during printing of 
Member statements. 


Therefore, the Lessor's Statements, the Aircraft 
Pnvencony diassocadcus Report, the Member Statements, and 
INISePUCtOmeoLatememis must pe posted prior to this 
module"s operation or the posting of tables will be 
Piaceurdle.. 


After the postings are completed the user will be 


directed to Pecan a database back-up and repack 
inorder for the database to perform more efficiently. 


ey) 


Tables used: 


Forms used: 


INCOME, EXPENSE, EARNINGS, INC_HIST, EXP_HIST, BAL_SHET, 
BAL_JOUR, ACCT _ PAY, AP_CHG, AP_PAID, APCGHIST, APPDHIST, 
INS_REC, MEM_FLT, FLT_REC ELT Hist) A/CMAINT, MAINEISa. 
chee at CAP_ASET, MBR_SUM 

NONE 


KEEKKKRKERKRKRKRKKKRKRRRRKRKKKRKRRRRRRKRKKRRRRRRKRKRKRKRRRRRKREKRRRRRRKRKRKRRRRRKRKKKKKK 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


BACKPACK .CMD 

BACK UP AND PACK THE DATABASE 

This module creates a pacnue copy of the database on. 
floppy disks and then repacks the hard disk to reclaim 
any unusable space developed from removes and deletes. 


NONE 
NONE 


KEEKKKKKRKKKKKRKKKRKKKRKKEKRKKRKRKRKKKKRKRKKKKRRRKRKRRKKRKRKKERKKRRKRKRKRKRRKKKRKKERKKAKKKK 


Module: 
Menu Option: 


Description: 


Tables used: 


Forms used: 
Report used: 


MEMSTMT.CMD 
POST AND PRINT MEMBER STATEMENTS 


This module computes the active members! statement 
charges, prints the Members! Statements, Updates) the 
Club's Account Receivable records; wameuposcs al leeaeues 
preparing for the new monthly transactions. 


MEM REC, MEM CHG SEM Pay GHG lS ecole 
Bee EME) Ace Lonnie 

NONE 

MEM_BILL 


KREKKRKRKKRKKKRKEREKKRERRKRERRKAKRKRKRRKRRKRRKRKRKRRKRRRKRERRRRRRKRRRERRRRRRRKRKKREKRAKRKRRRK 


Module: 

Menu Option: 
Description: 
Tables used: 


Forms used: 
Report used: 


INSTSTMT.CMD 
POST AND PRINT INSTRUCTOR STATEMENTS 


This module computes and prints the Instructor Statements 
and updates the instructor tables for the next month. 


INST_REC, INSTHIST 
NONE 
INSTSTMT 


KEKKKRKEKKKKRKRRKRKKKRKKRKRKREKRKRRKKKKRKRKEKRKERKRRRKRRRKKEKRRRRRERKRKKRKKRRRRKRKKRRKKRRREKRER 


Module: 
Menu Option: 


Description: 


Tables used: 
Forms used: 


LES STMT .CMD 
POST AND PRINT LESSOR STATEMENTS 


This module computes and prints the Lessor's Statements. 
The A/C_HRS and Eee ables must have been kept up 
to date through the month. The manager should prepare 
the A/C Status report after printing the Lessor's 
statements to ensure proper update of A/C HOURS. 


LES_ACCT, A/C_REC, A/C_HRS, A/CMAINT 
NONE 


KEKKKKKKKKKRKKKKKKKKKKKKKKKKKRKRKKRKKKKKEKKKRKKKKKRRKRKRKRKRRKKRKRKRKKKRKKKRKKKKEREKKEK 
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APPENDIX E 
FLYSTART AND CLUB_MIS SOURCE CODE 


The Management Information System Prototype for the Monterey Navy Flying 
Club consist of five applications (programs) written in R:BASE 5000 language. Each 
application has access to the one common R:BASE 5000 relational Database structure. 

The following pages contain the source code for the first two application 
programs of the Monterey Navy Flying Club MIS prototype. The remaining 
applications are listed in Appendix F through Appendix H. 

The menu selection portions of each application, which are listed first in each 
application, were computer generated by the R:BASE 5000 Application Express. The 
remaining command files (modules/routines), which comprise the applications, were 
written by this writer and CDR. D. R. George. Portions of the membership entry/edit 
transaction code, member, instructor, and lessor statement code, and database backup 
and repack code are from the original prototype [Ref. 1] and were incorporated into the 
version 2.0 prototype code. 

Each command file’s code is commented. Code for the Reports and Entrv/Edit 
forms is contained within the R:BASE 5000 database structure itself and was 


considered inappropriate for listing. 


p39 


KAKKKAAKAKKAKKKKKKKKAKKAAKKKAAAKAKAKAKKAAKAKAKAKARRRAKKKKKAKKARARK ARR 
MONTEREY NAVY FLYING CLUB 


* 

* 

* MANAGEMENT INFORMATION SYSTEM 
: PROTOL (PE. VERS Kellie. © 
* 
* 
(x 


MAIN MENU AND STARTUP APPLICATION 


LCDR. JAMES M. GRAHAM, USN 


. JANUARY 1987 (97) 
KAKAKAKKARKKAAAKAAKKKAKKKARKKAKKAKAKKKKKARKKKAKAAAKAAKAKKAKAAKKAKKAKKKAAKKAKARKK 


OF OR ROR OF 
+O OR OF 


+ 


*' 


$ COMMAND 

FLYSTART 

SET MESSAGE OFF 

OPEN FLYCLUB 

SET ERROR MESSAGE OFF 

SET VAR PICK1 INT 

LABEL STARTAPP 
NEWPAGE 
CHOOSE PICK1 FROM FLYMAIN IN FLYSTART.APX 
IF PICK1 EQ 0 THEN 

GOTO ENDAPP 


ENDIF 

TE PLekis, &O Lt THe 
RUN clubmis IN FLYSTART.APX 
GOTO STARTAPP 

ENDIF 

Per Leh eee 2 THEN 


RUN CLUBFIN IN FLYSTART.APX 
GOTO STARTAPP 
ENDIF 
IF PICK1L E 3 THEN 
RUN FLYMAINT IN FLYSTART.APX 
GOTO STARTAPP 
ENDIF 
IF PICK1l EQ 4 THEN 
RUN AC_UPDAT IN FLYSTART.APX 
GOTO STARTAPP 
ENDIF 
IF PICK1 EQ 5 THEN 
RUN CLUBPRT IN FLYSTART.APX 
GOTO STARTAPP 
ENDIF 
IF PICK1l EQ 6 THEN 
RUN CLUBEOMT IN FLYSTART.APX 
GOTO STARTAPP 
ENDIF 
Peele eee 7 THEN 
GOTO ENDAPP 
ENDIF 
GOTO STARTAPP 
LABEL ENDAPP 
CLEAR PICKI1 
RETURN 
SMENU 
FLYMAIN 
COLUMN MONTEREY NAVY FLYING CLUB MIS MAIN MENU 
MEMBERSHIP TRANSACTIONS 
FINANCIAL TRANSACTIONS 
AIRCRAFT MAINTENANCE/FLIGHT HOUR UPDATES 
AIRCRAFT INVENTORY UPDATE 
PRINT REPORTS/STATEMENTS 
END-OF-THE-MONTH TRANSACTIONS 
RETURN TO THE COMPUTER OPERATING SYSTEM 
SCOMMAND 
clubmis 
K ( RRKKKKAKAAKKKAAAKKAKKAAKKAKKKKAAAKAKKKKAAAKKKARKKKKARAKKARRRKKKARRRKK KA 
PROGRAM : CLUBMIS .CMD 
AUTHOR: J. M. GRAHAM 
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DATE : NOV 1986 

DeecCRIPTION: THIS ROUTINE CALLS THE FIRST APPLICATION PROGRAM FOR 
USE WITH THE FLYCLUB DATABASE OF THE MNFC MIS SYSTEM. 
THE USER WILL BE ALLOWED TO MAKE MEMBERSHIP ENTRIES/ 
DELETIONS/MODIFICATIONS. 


TABLES USED: NONE 


FORMS USED: NONE 
KARKKAKKARAKKAKAKRKKKKKAKRKARKKKAKKK KK KAKA KK KR RKK KKK KKK KAKA KK KK ARK KKK K ) 


Sm TIESSAGES OFF 
pee seRROR MESSAGES OFF 
OPEN FLYCLUB 


Temeact THE CLUB_MIS APPLICATION *) 
RUN CLUB_MIS IN CLUB_MIS.APX 


*(* CALL BACK TO THE MNFC MAIN MENU *) 
RETURN 
x(x END OF CLUBMIS.CMD *) 


$ COMMAND 

CLUBFIN 

K (AKKAKKRARRKKKAKKK RRR RK RKKKAKK KKK KK RRR RAK KKK KKK KKK RRA KK KKK RR KR 

PROGRAM : CLUBFIN.CMD 

AUTHOR: J. M. GRAHAM 

DATE : NOV 1986 

DESCRIPTION: THIS ROUTINE CALLS THE FINANCIAL APPLICATION OF THE 
MNFC MIS SYSTEM USING THE FLYCLUB DATABASE. ALL 
FINANCIAL TRANSACTIONS ARE ENTERED IN THIS PROGRAM. 


TABLES USED: NONE 


FORMS USED: NONE 
RRRAARAKKKKKARKKKKKKKKRKAK KKK KKK RRR KKKKKK RR KAKA RRR AKA KK RRRAKKAKAKKRR A ) 


Seems oAGES OFF 
OPEN FLYCLUB 
SomeekROR MESSAGES OFF 


*(* CALL FINANCIAL APPLICATION *) 
RUN CLUB_FIN IN CLUB_FIN.APX 


*(* CALL BACK TO THE MNFC MAIN MENU *) 
RETURN 
k(x END OF CLUBFIN.CMD *) 


SCOMMAND 

FLYMAINT 

KR (KAAKKAAKKKAKARKAKKKKAKKKKKAKKKKKKKKAAKKKKRKKKAKAKKKKKAKKKKAKAAKKKKKKKKKK 

PROGRAM: FLYMAINT.CMD 

AUTHOR: J. M. GRAHAM 

DATE: JAN 1987 VER. 1.4 

DESCRIPTION: THIS ROUTINE ALLOWS THE USER TO ENTER AIRCRAFT 
MAINTENANCE TRANSACTIONS OR UPDATE A/C FLT HRS. 


TABLES USED: A/C_HRS, A/CMAINT 


FORMS USED: MAINTFRM, FLTHRSFM (97) 
RA RAKKAK AK KKK RAK RAK KKK KIKI KKK KKK KAKA AK KAKA KAKA KAKA KEAKAKAAKERR ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


*(* ask if maintenance or flight hour update ) 

LABEL ACMENU 

NEWPAGE 

WRITE “AIRCRAFT MAINTENANCE OR AIRCRAFT HOURS UPDATE" AT 4,15 
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WRITE "ee nn een ccee ccc ccccce cece ccccceeesecceesnnnene= UC Rees 1S 
WRITE "ENTER: " AT 7,5 
WRITE "1 - POST AN AIRCRAFT MAINTENANCE TRANSACTION" AT 9,5 
WRITE "2 - POST A CHANGE/CORRECTION TO AN AIRCRAFT HOURS" AT 11,5 
WRITE '3 - RETURN TO THE MNFC MAIN MENU" AT 13,5 
WRITE "CHOICE:"™ sates 5S 
FILLIN YOURCH USING " " AT 15,15 
IF YOURCH = 1 THEN 
GOTO ACMAINT 
ENDIF 
IF YOURCH = 2 THEN 
*(-- allows editing an Saeed entry in the A/C_HRS table) 
FILLIN VACNUM USING "HOURS TO BE ADJUSTED ON AIRCRAFT NUMBER - "AT 20,20 
EDIT USING FLTHRSFM WHERE A/C_NUM EQ .VACNUM 
GOTO ACMENU 


ENDIF 

IF YOURCH = 3 THEN 
GOTO ACEND 

ENDIF 


LABEL ACMAINT 
LABEL MAINTMENU 


NEWPAGE 
WRITE (AIRCRAFT MAINTENANCE TRANSACTION" AT 5,25 
WRITE tleeso==—2 6665 = = ee eee " AT 6,25 


WRITE "ENTER:" AT 8,10 
WRITE "1 = POST A NEW MAINTENANCE TRANSACTION" AT 10, 
WRITE "2 - POST A CHANGE TO AN EXISTING MAINTENANCE ENTRY" AT 12,10 
WRITE "3 - EXIT TO AIRCRAFT UPDATE MENU" AT 14,10 
WRITE "4 - QUIT AND RETURN TO THE MNFC MAIN MENU" AT 16,10 
WRITE “CHOTGE : "Seats Ps7 20 
FILLIN YOURANS USING " " AT 18,20 
IF YOURANS = 1 THEN 
ENTER MAINTFRM *(-- allows for entry of maintenance transactions) 
GOTO MAINTMENU 
ENDIF 
IF YOURANS = 2 THEN 
EDIT USING MAINTFRM *(-- allows editing of maintenance transactions) 
GOTO MAINTMENU 
ENDIF 
IF YOURANS = 3 THEN 
GOTO ACMENU 
ENDIF 
IF YOURANS = 4 THEN 
GOTO ACEND 
ENDIF 


*(* END OF ACMAINT SUBROUTINE) 


LABEL ACEND 

SET MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END OF FLYMAINT.CMD ) 


$ COMMAND 

AC_UPDAT 

K ( RAKKKAAKKAKKKKAKKAKAKA RK AKKAKKKAKKAKKAKAKKA KKK AKAAKAAAKRKAKRAAKKAKKRAK 

PROGRAM : AC_UPDAT.CMD 

AUTHOR: J. M. GRAHAM 

DATE: DEC 19865 VERS 2.1 

DESCRIPTION: THIS MODULE IS USED BY THE CLUB MANAGER TO EITHER ADD 
A LEASED OR PURCHASED AIRCRAFT TO THE CLUB'S INVENTORY 
OR DELETE AN AIRCRAFT FROM THE CURRENT INVENTORY. 


TABLES USED: A/C_HRS, CAP_ASET, LES_ACT, A/C_REC 


FORMS USED: A/C_FORM, HOB FORM, LES FORM (3 1) 
HAKKAR RAIA AAI RAI RRA KA AKI A ee ee *K* *X ) 
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SEISMESSAGES OFF 


OPEN FLYCLU 


B 


SET ERROR MESSAGES OFF 


*K(-- 


LABEL A/C_MENU 


NEWPAGE 


lace menu choices for manager) 


WRITE "AIRCRAFT INVENTORY UPDATE" AT 2,25 

Velhe " ee S25 

WRITE "ENTER: AT 5,10 | | 

WRITE "1 - To enter a purchased aircraft to the inventory" AT 6,10 
WRITE "2 - To enter a leased aircraft to the inventory" AT 3,10 
meee > U «CLO Gelete a leased aircrart from inventory” AT 10,10 
pee, "4 - To delete a club owned aircraft from inventory" AT 12,10 
WRITE '5 - To exit without an update" AT 14,10 

meee, CHOICE:" AT 16,10 

FILLIN YOURNO USING " " AT 16,20 

*(* DETERMINE USER CHOICE AND ACTION TO TAKE *) 

IF YOURNO = 1 THEN 


GOTO PURCHASE 


ENDIF 

IF YOURNO = 2 THEN 
GOTO LEASE 

ENDIF 

IF YOURNO = 3 THEN 


GOTO STOPLEAS 


ENDIF 


IF YOURNO = 4 THEN 
GOTO DELA/C 


ENDIF 

IF YOURNO = 5 THEN 
GOTO ACEND 

ELSE 


pete “YOUR ENTRY IS INVALID" AT 12,10 
Dee © LEASE, IRY AGAIN...PRESS ANY KEY TO CONTINUE" AT 14,10 


PAUSE 


GOTO A/C_MENU 


ENDIF 


LABEL LEASE 


NEWPAGE 


ENTER 


LES_FORM 


LABEL PURCHASE 
NEWPAGE 


CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 


VA/C_NUM 
Perce e 
VYEAR 
VMODEL 
VPASSEAT 
VNO_ENG 
VCOST 
VTX:DATE 
VBK_VAL 
VHULLVAL 
VLESRATE 
VRENT 
VHULPREM 
VLIABPRM 
VPREPINS 
VTOTPRM 
VSTRTDAT 
VSTOPDAT 
VACC_DEP 
VDEPTERM 


DRAW A/C_FORM 


*(* input for new lessor data on newly acquired plane) 


*(* input new a/c data on purchase ) 
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WRITE "PRESS PGDN KEY TO ENTER DATA = PRESS ESC KEY TO QUTI" AleZaee 

ENTER VARIABLE VA/C_NUM VIYPE VYEAR VMODEL VPASSEAT VNO_ENG VCOST + 
VTX:DATE VBK_VAL VHULLVAL VLESRATE VRENT VHULPREM VLIABPRM + 
VPREPINS VTOTPRM VSTRTDAT VACC_DEP VSTOPDAT VDEPTERM + 
RETURN PGDN ESC 

IF #RETURN = ESC THEN 

BREAK 
ENDIF 


LOAD A/C_REC 
~VA/C_NUM .VTYPE .VYEAR .VMODEL .VPASSEAT .VNO_ENG .VHULLVAL + 
»~VHULPREM .VLIABPRM .VTOTPRM .VSTRIDAT .VSTOPDAT .VLESRATE + 
ae ~.VPREPINS .VBK_VAL .VACC “DEP “VBERTHRM Vv 1x-DalE 
EN 


R(K Pie are var to enter new aircraft in capital asset acct) 
SET VARIABLE VASETNO TO "1650" 

SET VARIABLE VWHAT1 TO "AIRPLANE" 

SET VARIABLE VWHAT2 TO .VA/C_NUM & .VTYPE 

SET VARIABLE VWHAT TO .VWHAT1 & .VWHAT2 


LOAD CAP_ASET 
Es ~VWHAT .VASETNO .VCOST .VTX:DATE .VDEPTERM .VACC_DEP 
ND | 


NEWPAGE 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR VHOBOWNR 


DRAW HOB_FORM 
WRITE "PRESS PGDN KEY TO ENTER DATA - PRESS ESC KEY TO QUIT" AT @Z2Z06 
ENTER VARIABLE VA/C_NUM VHOBSTAR VHOB_END VCUMHRS VHOBMAIN VHOBOWNR + 
RETURN PGDN ESC 
IF #RETURN = ESC THEN 
BREAK 
ENDIF 


SET VARIABLE VHOBUSE TO 0.0 
SET VARIABLE VHOBNET TO 0.0 
SET VARIABLE VHBLEAS TO Q.0 
SET VARIABLE VTOTMAIN TO $0.00 


LOAD A/C_HRS 
.VA/C_NUM .VCUMHRS .VHOB_END .VHOBSTAR .VHOBUSE .VHOBMAIN + 
“a ~VHOBNET .VHOBOWNR .VHBLEAS .VLESRATE .VTOTMAIN 
E 
GOTO ACEND 


LABEL STOPLEAS 


*(* input a/c hours for new aircraft ) 


NEWPAGE 

WRITE “WARNING UP PtNpal oS .2> 

WRITE "All aircraft deletions should ONLY be performed after" AT 8,5 
WRITE "the end-of-month transactions and all billing anes aT sige. 
WRITE “accomplished. Otherwise, all aircraft flight hours" AT 12,5 
WRITE “and maintenance cost for the month are lost on that” Ata 
WRITE "deleted aircraft." AT 16,5 

WRITE "DO YOU DESIRE TO STILL DELETE THE AIRCRAFT NOW(Y/N)?" AT 20,5 


PILLIN YOURCH USING s. = 


AT 20,60 


IF YOURCH = N THEN 


GOTO ACEND 
ENDIF 
NEWPAGE *(* input lessor's no. or name to delete from database) 
WRITE "PLEASE, EITHER THE LESSOR'S NUMBER OR FULL NAME" AT 5,10 
WRITE "ONLY INPUT ONE !" AT 7,30 
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Miele VEESOR USEING "EBSSOR'S NUMBER IS - " AT 10,20 


FILLIN VLNAME USING "LESSOR'S LAST NAME IS - " AT 12,20 
IF VLESOR EXISTS THEN 
NEWPAGE 
EDIT USING LES_FORM WHERE LESOR_NU = .VLESOR 
LSE 
NEWPAGE 
ee ee USING LES_FORM WHERE L:NAME = .VLNAME 
DI 


NEWPAGE *(%* ee a/c no. inorder to delete all rows concerning it) 
Reick "A/C Num Please:" AT 2,20 

FILLIN VA/C_NUM USING " " AT 2,40 

WRITE "DELETION OF AIRCRAFT IS NOW TAKING PLACE" AT 10,15 


*(* remove all records of this aircraft from ene ue! S- rec table) 
DELETE ROWS FROM A/C_REC WHERE Aj C_ NUM = .VA/C_N 

*(* remove all records of this aircraft from noe sais hrs table) 
DELETE ROWS FROM A/C_HRS WHERE A/ee NUM = .VA/C_NUM 

*(* remove all records of this aircraft from the maint table) 
DELETE ROWS FROM A/CMAINT WHERE A/C_NUM = .VA/C_NUM 

Bea "DELETION COMPLETED - PRESS ANY KEY TO CONTINUE" AT 15,15 
AUSE 

GOTO ACEND *(* end of stoplease routine) 


LABEL DELA/C 

NEWPAGE 

WRITE "WARNING !!!!" AT 5,25 

WRITE "All aircraft deletions should ONLY be performed after" AT 3) 5 
WRITE "the end-of-month transactions and all billing are' AT 10,5 
Metre “accomplished. Otherwise, all aircraft flight hours and"AT 12,5 
WRITE "maintenance cost for the month are lost on that" AT 14,5 
WRITE "deleted aircraft." AT 16,5 

WRITE "DO YOU DESIRE TO STILL DELETE THE AIRCRAFT NOW(Y/N)?" AT 20,5 
FILLIN YOURCH USING " " AT 20,60 

IF YOURCH = N THEN 

GOTO ACEND 
ENDIF 


NEWPAGE *(* input a/c no. and S, Bs to remove from database) 
WRITE "A/C Number and A/C T ease:" AT 2,20 
FILLIN VA/C_NUM USING "A/C umber is - " AT 4,10 
FILLIN VTYPE USING "A/c Pye e is - !! © 6.150 

WRITE "DELETION OF AIRCRAFT FROM DATABASE 1s NOW TAKING PLACE" AT 10,15 


repare search data to delete the proper capital asset ) 
SET ARIABLE VWHAT1 TO "AIRPLANE" 
SET VARIABLE VWHAT2 TO .VA/C_NUM & .VTYPE 
SET VARIABLE VIDENT TO .VWHAT1 & .VWHATZ2 


*(* remove all records of this aircraft from cap _ aset table) 
DELETE ROWS FROM CAP_ASET WHERE IDENT = .VIDENT 
*(* remove all records of this aircraft from a/c nec table) 
DELETE ROWS FROM A/C_REC WHERE Ayes NUM = .VA/C 
*(* remove all records of this aircraft from s7e_ hrs table) 
DELETE ROWS FROM A/C_HRS WHERE A/C_ NUM = .VA/C_N 

* remove all records of this aircraft from Siaiaint table) 
DELETE ROWS FROM A/CMAINT WHERE A/C_NUM = .VA/C_NUM 
eee "DELETION COMPLETED - PRESS ANY KEY TO CONTINUE" AT 15,15 


LABEL ACEND 

S61 MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END OF AC_UPDAT.CMD *) 
SCOMMAND 


CLUBPRT 
* ( KRAKKAKKAKKKKKKKKAKKKKKKKKKKAKKKAKAKRKKKKKKKAKKKKKKKKKKAKKKAKKRKAKKAKAAKAKKK 
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PROGRAM : CLUBER2. CMD 

AUTHOR: J. M. GRAHAM 

DATE: NOV 1986 

DESCRIPTION: THIS ROUTINE CALLS THE GLUB SPRINT Geerroiecaiien 
FOR THE MNFC MIS SYSTEM USING THE POYCLUB DATABASE. 


TABLES USED: NONE 


FORMS USED: NONE 
RAKARAKRKKAKK RRA REKKAK ARK RIK AKAIKE KKK AR AERA AKIRA AKA ARK ARRAY 


SET MESSAGES SORE 
SET ERRORMESSAGES OFF 
OPEN FLYCLUB 


*(* CALL CLUBPRINT *) 
RUN CLUB_PRT IN CEUBSERT SAE. 


*(* CALL BACK TO MNFC MAIN MENU *) 
RETURN 
*(* END OF CLUBPRT.CMD %) 


$ COMMAND 

CLUBEOMT 

HK (KKAARKKKKRKKKKKKKKKKKK KKK KKK RKKKK RK KKK KK KKK KKK KKKKKKK KKK RKKK KK KKK K 

PROGRAM : CLUBEOMT . CMD 

AUTHOR : J. M. GRAHAM 

DATE : NOV 1986 

DESCRIPTION: THIS ROUTINE CALLS THE END-OF-THE-MONTH APPLICATION 
FOR THE MNFC MIS SYSTEM USING THE FEYCLUB DATABASE: 
ALL ACCOUNTS ARE POSTED AND UPDATED MONTHLY. ALL 
ce ee FINANCIAL TRANSACTIONS ARE CONDUCTED AT 

S ‘ 


TABLES USED: NONE 


FORMS USED: NONE 
KKAKAKRKKEKKK ARK RRKKKKKKA KIRA AKA RIKIKIR AKA AKIRA ARIK ARK AERER ) 


SET MESSAGES OFF 
SET ERROR MESSAGES OFF 
OPEN FLYCLUB 


*(* CALL END-OF-MONTH TRANSACTIONS APPLICATION *) 
RUN CLUB_LEND IN CLUB_END.APX 


*(* CALL BACK TO THE MNFC MAIN MENU *) 


RETURN 

*(* END OF CLUBEOMT.CMD *) 

SCOMMAND 

CLUB MIS 

KL KREKRKKKKKKKKKKKEKKKKKKRERRERRREKKKKKKERERKRKKKKKKKKKKEKKKKKKKKKKKKKKKK 
x(k MONTEREY NAVY FLYING CLUB x 
ACK MANAGEMENT INFORMATION SYSTEM zx 
_ if PROTOTYPE VERSION 2.0 | i 
: 5 MEMBERSHIP TRANSACTIONS PROGRAM 3 
* ’ LCDR. JAMES M. GRAHAM, USN 


JANUARY 1987 (9 7) 
KAKKKAKKKAKAKAKKKRAKKKKAKAKKKKKKERERARKAKAKKAKARKAAKKKKKKKKAAKKKRRARRR 


SET MESSAGE OFF 

OPEN FLYCLUB 

SET ERROR MESSAGE OFF 

*(-- menu selection routine; computer generated code ) 


SET VAR PICK] INT 


LABEL STARTAPP 
NEWPAGE 
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CHOOSE PICK1 FROM MIS_MAIN IN CLUB_MIS.APX 
IF PICK1 EO 0 THEN 
GOTO ENDAPP 
ENDIF 
IF PICK1l E 1 THEN 
RUN ADD_MEM IN CLUB_MIS.APX 
GOTO STARTAPP 
ENDIF 
IF PICK1 EQ 2 THEN 
RUN EDIT MEM IN CLUB_MIS.APX 
GOTO STARTAPP 
ENDIF 
IF PICK1 EQ 3 THEN 
GOTO ENDAPP 
ENDIF 
GOTO STARTAPP 
LABEL ENDAPP 
CLEAR PICK1 
RETURN 


k(-- menu screen routine ) 

SMENU 

MIS_MAIN 

COLUMN MEMBERSHIP TRANSACTIONS 

ENTER A NEW MEMBER RECORD 

EDIT / DELETE AN EXISTING MEMBER RECORD 
RETURN TO THE MNFC MAIN MENU 


S$ COMMAND 

FEE GC IMG TSCA GG ASSESS CIC TEC ICT ATTA IIA TR aa i iit sei 
PROGRAM: ADD_MEM.CMD VER.2.0 

AUTHOR : J. M. GRAHAM 

DATE: NOV 1986 


DESCRIPTION: THIS MODULE ALLOWS THE USER TO ENTER A NEW MEMBER'S 
DATA UTILIZING A PREDESIGNED SCREEN INPUT FORMAT. 


TABLES USED: MEM_REC 

FORMS USED: EM_FORM 

RARKARARKARKKKKKKRAKKAKKKKKKKKKKKKKAKKKAREKKKRKAEKKAKKKRAKRARKRRARKAAKER ) 

SET MESSAGES OFF 

SET ERROR MESSAGES OFF 

OPEN FLYCLUB 

*(* ACCESS TO THE INPUT FORM AND ACCEPTING MEMBER DATA *) 

ENTER MEM_FORM 

*(* RESET ALL ERROR MESSAGE CAPABILITY *) 

SET MESSAGES ON 

SET ERROR MESSAGES ON 

*(* ALLOW RETURN TO MENU ) 

RETURN 

*(* END OF ADD_MEM.CMD *) 

$ COMMAND 

EDIT_MEM 

* ( KHKEAAKKKAKKAKKAEKAKKKAKKAKKAKAAKKKAKKKAAKAAKAAKKAKKKRKKKAKRAKKARKKEAKKAKKAKK 

PROGRAM : EDIT_MEM.CMD 

AUTHOR : J. M. GRAHAM 

DATE: JAN 1987 

DESCRIPTION: THIS MODULE ALLOWS THE USER TO EDIT OR DELETE MEMBER 
DATA AND/OR AN ENTIRE MEMBER RECORD. THE USER ACCESS 
THE MEM_REC TABLE USING THE MEM_FORM FORM. SPECIFIC 
RECORD IS CALLED EITHER BY MBR # OR MBR LAST NAME. 


BeaeLES USED: MEM REC 


BORrS USED: Pre PORM (97) 
KAKRKKKKKRKKAAKK RRA KKK KKAAKKKRAKAKKRAKAKKERAKKRRAKKKKKKARKKRKAAKRARKS ) 


SET MESSAGES OFF 
SET ERROR MESSAGES OFF 
OPEN FLYCLUB 
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ae PREPARE SCREEN FOR ASKING FOR INPUT DATA REQUIRED TO ACCESS FORM) 
EWPAGE 

WRITE "ENTER, ONCE PROMPTED, EITHER THE MEMBER'S NUMBER," AT 5,10 
WRITE WOR THE MEMBER'S LAST NAME OF WHOM YOU WiSHeTO BDI Teal 6 10 
WRITE " ***** ENTER ONLY ONE...NOT BOTH MEMBER NUMBER AND NAME ***xxu 


AT 9,5 
LABEL GETDATA 
FILLIN MEMNUM USING "MEMBER NUMBER:" AT 15,10 
FILLIN MNAME USING "MEMBER'S LAST NAME:" AT 17,10 


IF MEMNUM EXISTS AND MNAME EXISTS THEN 
Cae Ce ONLY 2NTER EITHER THE MEMBER®S NUMBER OR@IAME® 
WRITE "PRESS ANY KEY TO REENTER YOUR DATA" aT 22,30 
PAUSE 
NEWPAGE 
GOTO GETDATA 
ENDIF 


*(* DETERMINE USER CHOICE AND ACT AS REQUESTED *) 
IF MEMNUM FAILS THEN 
EDIT USING MEM_FORM SORTED BY L:NAME MEM_NUM WHERE L:NAME EQ .MNAME 
CLEAR MNAME 
seer MEMNUM 
EDIT USING MEM_FORM SORTED BY MEM_NUM L:NAME WHERE MEM_NUM EQ .MEMNUM 
CLEAR MNAME 
_CLEAR MEMNUM 


ONDIF 

*(* CALL MEMU *) 

RETURN 

*(* END OF EDIT_MEM.CMD *) 
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APPENDIX F 
CLUB_FIN SOURCE CODE 


KL KIKI KIRKE KKK RK RK KKK KKK KKK 
x MONTEREY NAVY FLYING CLUB * 
*( MANAGEMENT INFORMATION SYSTEM * 
x(x PROTOTYPE VERSION 2.0 * 
Rix nn 
i * FINANCIAL TRANSACTIONS APPLICATION * 
x 

(x LCDR. JAMES M. GRAHAM, USN * 
x(x JANUARY 1987 (97) 4 
KE III KK KKK KKK KKK KERR KKK KKK KKK KKKAKKKKEKE AK 
SCOMMAND 

CLUB FIN 


SalemeooAGE OFF 

OPEN FLYCLUB 
SeueenenOR MESSAGE OFF 
SeeevAR PICK] INT 
LABEL STARTAPP 


NEWPAGE 
CHOOSE PICK1L FROM FIN_MAIN IN CLUB_FIN.APX 
Meee sent EO O THEN 

GOTO ENDAPP 


IF PICK1l E 1 THEN 
SET VAR PICK2 INT 
SET VAR LEVEL2 INT 
SET VAR LEVEL2 TO 0 
WHILE LEVEL2 EQ 0 THEN 
NEWPAGE 
CHOOSE PICK2 FROM MGR_MENU IN CLUB_FIN.APX 
IF PICK2 EQ 0 THEN 
BREAK 
ENDIF 
IF PICK2 £ 1 THEN 
SET VAR PICK3 INT 
SET VAR LEVEL3 INT 
SET VAR LEVEL3 TO 0 
WHILE LEVEL3 EQ 0 THEN 
NEWPAGE 
CHOOSE PICK3 FROM BAL_SHET IN CLUB_FIN.APX 
IF PICK3 EQ 0 THEN 
BREAK 
ENDIF 
IF PICK3 EQ 1 THEN 
RUN ASSTEDIT IN CLUB_FIN.APX 
ENDIF 
IF PICK3 EQ 2 THEN 
RUN LIABEDIT IN CLUB_FIN.APX 
ENDIF 
IF PICK3 EQ 3 THEN 
BREAK 
ENDIF 
ENDWHILE 
CLEAR LEVEL3 
CLEAR PICK3 
ENDIF 
IF PICK2 E 2 THEN 
SET VAR PICK3 INT 
SET VAR LEVEL3 INT 
SET VAR LEVEL3 TO 0 
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WHILE LEVEL3 EQ 0 THEN 
NEWPAGE 


CHOOSE PICKS 9 FROM INCSEMD 


IF PICK3 EQ 0 THEN 
BREAK 

ENDIF 

IF PICK3 E 


IN CLUB_FIN.APX 


THEN 


0 1 
RUN REV_EDIT IN CLUB_FIN.APX 


ENDIF 
i Picks 


EQ 2 THEN 
RUN EXP_EDIT IN CLUB_FIN.APX 


ENDIF 
IF PICK3 EQ 
BREAK 
ENDIF 
ENDWHILE 
CLEAR LEVEL3 
CLEAR PICK3 
ENDIF 
IF PICK2 EQ 
BREAK 
ENDIF 
ENDWHILE 
CLEAR LEVEL2 
CLEAR PICK2 
GOTO STARTAPP 
ENDIF 
IF PICK1 E 
SET VAR PICK2 INT 
SET VAR LEVEL2 INT 
SET VAR LEVEL2 TO 0 
WHILE LEVEL2 EQ 0 
NEWPAGE 


THEN 


2 THEN 


8 THEN 


3 THEN 


CHOOSE PICK2 FROM NEW_LFIN IN CLUB_FIN.APX 


LF PECK2 (EO 0) TREN 
BREAK 

ENDIF 

fr LP LekZ ae 


E 

RUN PUTPA 
ENDIF 

Pee erZ ae 


1 THEN 
IN CLUB_FIN.APX 


2 THEN 
IN CLUB_FIN.APA 
THEN 


0 3 
RUN CRED_BUY IN CLUB_FIN.APX 


ENDIF 


IF PICK2 EQ 4 TH 
RUN CASH_BUY IN CLUB_FIN.APX 


EQ 
RUN PD_ACCT 
ENDIF 
IF PICK2 EQ 
BREAK 
ENDIF 
ENDWHILE 
CLEAR LEVEL2 
CLEAR PICK2 
GOTO STARTAPP 
ENDIF 
IF PICK1 EQ 
SET VAR PICK2 INT 
SET VAR LEVEL2 INT 
SET VAR LEVEL2 TO 0 
WHILE LEVEL2 EQ 0 
NEWPAGE 


Se EHEN 


THEN 


EN 


5 THEN 
IN CLUB_FIN.APX 
6 THEN 


CHOOSE PICK2 FROM EDIT_FIN IN CLUB_FIN.APX 


IF PICK2 EQ 0 THEN 
BREAK 
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ENDIF 


IF PICK2 EQ 1 THEN 
RUN EDIT_CHG IN CLUB_FIN.APX 
ENDIF 
IF PICK2 EQ 2 THEN 
RUN EDIT_PAY IN CLUB_FIN.APX 
ENDIF 
IF PICK2 EQ 3 THEN 
RUN EDIT_AP IN CLUB_FIN.APX 
ENDIF 
IF PICK2 EQ 4 THEN 
RUN EDIT_PD IN CLUB_FIN.APX 
ENDIF 
IF PICK2 EQ 5 THEN 
BREAK 
ENDIF 
ENDWHILE 


CLEAR LEVEL2 
SEEAR PICK2 
GOTO STARTAPP 


ENDIF 

IF PICKl EQ 4 THEN 
GOTO ENDAPP 

ENDIF 


GOTO STARTAPP 
LABEL ENDAPP 
Clear PICK 
RETURN 
SMENU 
FIN_MAIN 
COLUMN FINANCIAL TRANSACTIONS 
MANAGER'S UPDATE ENTRY 
ENTER A NEW TRANSACTION 
EDIT / DELETE AN EXISTING TRANSACTION 
RETURN TO THE MNFC MAIN MENU 
SMENU 
MGR_MENU 
COLUMN MANAGER'S UPDATE ENTRY 
BALANCE SHEET ADJUSTMENT 
INCOME STATEMENT ADJUSTMENT 
RETURN TO FINANCIAL TRANSACTION MENU 
SMENU 
NEW_FIN 
COLUMN ENTER A NEW FINANCIAL TRANSACTION 
Breen A MEMBER'S CHARGES 
Preex A MEMBER'S PAYMENTS 
POST AN ACCOUNTS PAYABLE PURCHASE/INTEREST 
POST CASH PURCHASE OF SERVICES/GOODS 
POST PAYMENT TO AN ACCOUNTS PAYABLE ACCOUNT 
RETURN TO FINANCIAL TRANSACTIONS MENU 
SMENU 
Beil FIN 
COLUMN EDIT / DELETE AN EXISTING TRANSACTION 
MEMBER CHARGE TRANSACTION 
MEMBER PAYMENT TRANSACTION 
ACCOUNTS PAYABLE PURCHASE 
PAYMENT TO AN ACCOUNTS PAYABLE ACCOUNT 
RETURN TO FINANCIAL TRANSACTIONS MENU 
SMENU 
INCSTMT 
COLUMN INCOME STATEMENT ADJUSTMENT 
REVENUE / SALE ACCOUNT ENTRY 
EXPENSE ACCOUNT ENTRY 
RETURN TO MANAGER'S UPDATE ENTRY MENU 
SMENU 
BAL_SHET 
COLUMN BALANCE SHEET ADJUSTMENT 
ASSET ACCOUNT ENTRY 
LIABILITY ACCOUNT ENTRY 


ih s)) 


RETURN TO MANAGER'S UPDATE ENTRY MENU 


ee 

FCRIII IIIA AAR A AACA R HREM RIT I IT ATTRA RENDER IRIE IR AAA TT ERA 
PROGRAM : PUTGHG Cup 

AUTHOR : J. M. GRAHAM 

DATE : JAN 1986 VER 1.6 

DESCRIPTION: ENTERS MEMBER'S CHARGES (INPUT BY MANAGER 


TABLES USED: 


FORM: USub CHG 
RAKAKAKAKKKKAARK RAK AARKKARRKAAKKKKKAKKRKRKAKKAKARKAARAKKKKRAKKKKRKKK KKK 


FROM INDIVIDUAL CHARGE SHEETS). AND THIS MODULE 


THE TOTAL AIRCRAFT HOURS USED AND CUM_HRS OF THE A/C. 
INCOME, EAPENS ES 


MEM_REC, MEMESCHG ME eu ; 
pesenee A/C_HRS, FLT_REC 
E 


PST aRes, 


*(- Establish message parameters) 
SET MESSAGES OFF 

OPEN FLYCLUB 

SET ERROR MESSAGES OFF 


k(Establish loo 
SET VARIABLE 


for entering member number) 
VMEMNUM TEXT 


SET VARIABLE VMEMNUM TO 0 
WHILE VENUS EALS TS. THe 
NEWPAGE 


CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 


*(Get 
WRITE 


FILLIN VMEMNUM USIN 


VINVONUM 
VTRANDAT 
VACCHARG 
VHRSFLON 
VACNUM 
VINSTNAM 
VINCHARG 
VFSCHARG 
VMSCHARG 
VESGRELDE 
VEXPCHG 
VGREIPE 
NGHUGILPE 
MEL leans 
VCATG 
VCERT 
VHOBSILR EF 
VHOBEND 
VACCTNUM 


member number ) 
"Add New Charges (ESC €O Guat) elie 


"Enter member n er - " AT 4,1 


*(I£ no member number entered, exit) 
IF VMEMNUM FAILS THEN 

SET MESSAGES ON 

SET ERROR MESSAGES ON 


BR 
ENDIF 
(Look u 


AK 
A(VMEMNUM fails) | 
member number in MEM_REC table) 


SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_NUM = .VMEMNUM 
*(I£ member number not found, warn user) 
IF STATUS1 <> O THEN 


WRITE 


'No such member number!" AT 18,1 


WRITE "Press any key to continue." AT 19,1 
PAUSE 
BREAK 

ences set up variables for screen) 


SET VARIABLE NAME1 TO L:NAME IN #1 


SET VARIABLE NAME2 TO .NAME]1 


+ fl 1 


SET VARIABLE NAME3 TO F:NAME IN #1 


SET VARIABLE NAME4 TO 


~NAME2 & .NAME3 


lisZ 


SET VARIABLE NAMES TO MID_INIT IN #1 
SET VARIABLE VFULLNAM TO .NAME4 & .NAMES 
SET VARIABLE VCATG TO CATEGORY IN #1 
SET VARIABLE VCERT TO FAA_CERT IN #1 
SET VARIABLE VEXFUEL TO "EXCESS FUEL CHARGE" 
SET VARIABLE VINITFEE TO "INITIATION FEE" 
mea VARIABLE VKEYDEP TO “KEY DEPOSIT" 
SET VARIABLE VINITDUE TO "INITIAL DUES" 
eel VARIABLE VFUELCR TO “FUEL CREDIT" 
eed VARIABLE VKEYRET TO "KEY RETURN" 
Seo) VeRtABLE VDUESCR TO "DUES CREDIT" 
SET VARIABLE VACRENT TO "A/C RENTAL" 
eee VARIABLE VINCHG TO "CFI: “ 
Boe VeRLABLE VFSCHG TO "FLIGHT SUPPLIES" 
SET VARIABLE VFLT_HRS TO FLT_HRS IN MEM_FLT WHERE MEM_NUM EQ .VMEMNUM 


ENDIF *( Statusl <> 0) 
NEWPAGE 
DRAW CHGFORM WITH VARIABLE VMEMNUM VFULLNAM VFLT_HRS 
WRITE "PRESS PGDN KEY TO ENTER DATA - PRESS ESC KEY TO QUIT" AT 24,8 
ENTER VARIABLE VACNUM VINVONUM VTRANDAT VHOBEND VHOBSTRT VHRSFLON + 
VINSTNUM VINCHARG VFSCHARG VCHGTYPE VMSCHARG VCRTYPE VMSCREDT + 
RETURN PGDN ESC 
*(If escape, break loop) 
IF #RETURN = ESC THEN 
BREAK 
ENDIF *(Escape) 
* (Look uP aircraft number) 
a POINTER #2 STATUS2 FOR A/C_REC WHERE A/C_NUM = .VACNUM 
*( If aircraft number found, compute renta Charge) 
fe STATUS2Z = O THEN 
SET VARIABLE VRENT TO RENT_RAT IN #2 
SET VARIABLE VACCHARG TO .VHRSFLON X .VRENT 
ENDIF *(Status2 = 0) 
*(- Look up instructor name) 
SET POINTER #3 STATUS3 FOR MEM_REC WHERE INST_NUM = .VINSTNUM 
fe SIATUS3 = 0 THEN 
SET VARIABLE VINSTNAM TO L:NAME IN #3 
ENDIF *(- look up instructor) 
NEWPAGE 
DRAW CHGFORM WITH ALL 
Bice Peekeoo ANY KEY TO CONTINUE = ESC TQ QUIT “" AT 24,15 
IF VACCHARG <> 0 THEN *(AIRCRAFT RENTAL) 
SET VARIABLE VRENTAL TO .VACRENT & .VACNUM 
LOAD MEM_CHG 
~VMEMNUM .VINVONUM .VTRANDAT .VACCHARG .VRENTAL + 
»~VHRSFLON .VACNUM 
END *(Load 
SET VARIABLE VACCTNUM TO "4951" *(-- load income from a/c rental) 
LOAD INCOME 
~VACCTNUM .VRENTAL .VACCHARG .VTRANDAT P 


END 
*(-- Update cum flight hours, last date flown, and last aircraft flown) 


IF VHRSFLON EXISTS THEN 
LOAD FLT_REC 
~-VTRANDAT .VHRSFLON .VCATG .VCERT .VACNUM 
END *( load ) 
SET VARIABLE VFLT_HRS TO .VFLT_HRS + .VHRSFLON 
LOAD MEM_FLT 
~VMEMNUM .VCATG .VCERT .VFLT_HRS .VTRANDAT .VACNUM 
END k(-- Load 
K(<- cOURUES and enter new cum hrs of aircraft flown) 
SET VARIABLE VHRSUSED TO .VHOBEND - .VHOBSTRT 
SET VARIABLE VCUMHRS TO CUM_HRS IN A/C. HRS WHERE A/C_NUM = .VACNUM 
SET VARIABLE VTHOURS TO .VCUMHRS + .VHRSUSED 
CHANGE CUM_HRS TO .VTHOURS IN A/C_HRS WHERE A/C_NUM = .VACNUM 
CHANGE HOBUSED TO .VHRSUSED IN Ay ee HRS WHERE Ay Co NUM = .ACNUM 


153 


CHANGE HOB_END TO .VHOBEND IN A/C_HRS WHERE A/C_N = .VACNUM 
CHANGE HOBSTART TO .VHOBSTRT IN A/C_HRS WHERE A/C_ YNUM - VACNUM 
ENDIF *(- VHRSFLON exists ) 


ENDIF *(Aircraft rental) 


IF VINCHARG <> 0 THEN *(Instruction charge) 

*(=-- Load INST_REC table for generating instructor statements) 

SET VARIABLE VCFICHG TO .VINCHG & .VINSTNAM 

LOAD INST_REC 
eVINSTNUM .VTRANDAT .VMEMNUM .VHRSFLON .VACNUM .VINCHARG + 
» VINVONUM 

END *(-- Load ) 

LOAD MEM_CHG 
»~VMEMNUM .VINVONUM .VTRANDAT .VINCHARG .VCFICHG + 
.VHRSFLON .VACNUM 

END *(Load) 

SET VARIABLE VACCTNUM To "4952" | | 

LOAD INCOME *({-- load income from instruction given) 
»~VACCTNUM .VCFICHG .VINCHARG .VTRANDAT P 


END 
ENDIF *(End instruction charge) 


SET VARIABLE VACNUM To '" " 
SET ‘VARIABLE VHRSFLON TO " " 
IF VFSCHARG <> 0 THEN *(Flight supplies charge) 
LOAD MEM_CHG 
~VMEMNUM .VINVONUM .VTRANDAT .VFSCHARG .VFSCHG + 
»-VHRSFLON .VACNUM 
END *(Load) 
SET VARIABLE VACCTNUM TO "4941" 
LOAD INCOME *(-- load income from sale of ee ont supplies) 
~VACCTNUM .VFSCHG .VFSCHARG .VTRANDAT 


END 
ENDIF *(End ee supplies charge) 
IF VCHGTYPE = (Excess fuel charge) 
LOAD MEM_CHG 
~VMEMNUM .VINVONUM .VTRANDAT .VMSCHARG .VEXFUEL + 
eVHRSFLON .VACNUM 
END *(Load ) 
SET VARIABLE VACCTNUM TO "8192" 
LOAD INCOME *(-- load income from fuel enapge=? 
eVACCTNUM .VEXFUEL .VMSCHARG .VTRANDA 


END 
ENDIF *(Excess fuel) 
IF VCHGTYPE = 2 THEN *(Initiation fee) 
LOAD MEM_CHG 
»~VMEMNUM .VINVONUM .VTRANDAT .VMSCHARG .VINITFEE + 
»~VHRSFLON .VACNUM 
END *(Load 
SET VARIABLE VACCTNUM TO "8101" a. 
LOAD INCOME *(-- load income from initiation fees) 
~VACCTINUM .VINITFEE .VMSCHARG .VTRANDAT P 


END 
ENDIF *(Initiation fee) 
IF VCHGTYPE = 3 THEN *(Key deposit) 
LOAD MEM_CHG 
~VMEMNUM .VINVONUM .VTRANDAT .VMSCHARG .VKEYDEP + 
~VHRSFLON .VACNUM 
END *(Loa 
SET VARIABLE VACCINUM TO “Gigi 
LOAD INCOME *(-- load income from key deposits ) 
aon ~VACCTNUM .VKEYDEP .VMSCHARG .VT DAT P 


ENDIF *(Key deposit) 
IF VCHGTYPE = 4 THEN *(Initial dues) 
LOAD MEM_CHG 
«VMEMNUM .VINVONUM .VTRANDAT .VMSCHARG .VINITDUE + 
»~VHRSFLON .VACNUM 
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END *(Load ) 

SET VARIABLE VACCTNUM TO "8100" ne 

LOAD INCOME *(-- load income from initial dues) 
~VACCTNUM .VINITDUE .VMSCHARG .VTRANDAT P 


END, 
ENDIF *(Initial dues) 


SET VARIABLE VEXPCHG TO .VMSCREDT 
SET VARIABLE VMSCREDT = .VMSCREDT X -1 
IF VCRTYPE = 5 THEN *(Fuel credit) 
LOAD MEM_CHG 
»~VMEMNUM .VINVONUM .VTRANDAT .VMSCREDT .VFUELCR + 
.VHRSFLON .VACNUM 
END *(Load ) 
SET VARIABLE VACCTNUM TO "7703" 
LOAD EXPENSE *(-- load expense from refunds of gas) 
i »~VACCTNUM .VFUELCR .VEAPCHG .VTRANDAT P 
N 


D 
ENDIF *(Fuel credit) 
IF VCRTYPE = 6 THEN *(Key return) 
LOAD MEM_CHG 
»~VMEMNUM .VINVONUM .VTRANDAT .VMSCREDT .VKEYRET + 
»~VHRSFLON .VACNUM 
END *(Load ) 
SET VARIABLE VACCTNUM TO "7711" 
LOAD EXPENSE *(-- load expense of refund for key returns) 
»~VACCTNUM .VKEYRET .VEXPCHG .VTRANDAT P 


END 
ENDIF *(Key return) 
IF VCRTYPE = 7 THEN *(Dues credit) 
LOAD MEM_CHG 
»~VMEMNUM .VINVONUM .VTRANDAT .VMSCREDT .VDUESCR + 
»~VHRSFLON .VACNUM 
END *(Load ) 
SET VARIABLE VACCTNUM TO "7711"! 
LOAD EXPENSE *(-- load expense due to dues! credit) 
s ~VACCTNUM .VDUESCR .VEXPCHG .VTRANDAT P 
N 


ENDIF *(Dues credit) 
ENDWHILE 


*(* return to financial transaction main menu) 
SET MESSAGES ON 
SET ERROR MESSAGES ON 


RETURN 
*(* END OF PUTCHG.CMD ) 


$COMMAND 

PUTPAY 

KR KRKKKKRKRKRAKKKARKKKRKKAKRKAKRKKKRKRKRKKRKKRKKKKKRKERKKRKKRRKRKKKKRAKKKKRRKRRRRKRKRKRRKRKKRARKE 
PROGRAM: PUTPAY .CMD 

AUTHOR: J. M. GRAHAM 

DATE: DEC 1986 VER 1.2 


DESCRIPTION: ENTERS MEMBER'S PAYMENTS (INPUT BY MANAGER) 


Peebes USED: MEM_REC, MEM_PAY, BAL_JOUR 


FORM USED: PAYFORM 
KRRKK KKK KKAKKKK ARK KKK KAKA RK KKK KARA RKKAKKKRARARKKKKK RRR RAKKK RARER AKKAKKKR ) 


Sel MESSAGES OFF 
OPEN FLYCLUB 
Sit ERROR MESSAGES OFF 


*(* inform user that multiple entries can be made ) 


NEWPAGE 
WRITE "MNFC MEMBER PAYMENT ENTRY" Lie 
ee eel ee em oa em oe ee oe ee " AT 6,25 


WRITE"YOU WILL BE ABLE TO MAKE ALL YOUR MEMBER PAYMENT ENTRIES"AT10,10 
eee DURING THIS ONE SITTING USING THIS MEMU SELECTION" AT 11,10 
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WRITE eae HAVE TO USE THE MEMBER'S NUMBER TO ENTER THE PAYMENT" 
WRITE"PRESS THE ESC KEY TO QUIT AND RETURN TO THE FINANCIAL MENU" 


WRITE "HAVE YOUR PAYMENT DATA AND MEMBER NUMBERS READY" AT LOS 
Tee "NOW PRESS ANY KEY TO START ENTRY" AT 18,20 
S 


LABEL GETNUM 
SET VARIABLE VMEMNUM TO O 
WHILE VMEMNUM EXISTS THEN 
NEWPAGE 
CLEAR VCHKNUM 
CLEAR VTRANDAT 
CLEAR VTRANAMT 
*(Get member number) 
WRITE "Add New Payments (ESC EO Cult). “alec ce 
FILLIN VMEMNUM USING "The Member's Number is - "' AT 4,10 
X(If no member number entered, exit) 
IF VMEMNUM FAILS THEN 
SET MESSAGES ON 
SET ERROR MESSAGES ON 
BREAK 
ENDIF a vueman fails) 
* (Look Epis mber number in MEM_REC table) 
SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_NUM = .VMEMNUM 
*( If member number not found, warn user) 
LIF STATUSE V7 0) THE 
WRITE "No such member number!" AT 18,20 
WRITE "Press any key to continue." AT 19,20 
PAUSE 
ep GETNUM 


SET VARIABLE NAME1 TO L:NAME IN #1 
SET VARIABLE NAME2 TO .NAME1 + "" 
SET VARIABLE NAME3 TO F:NAME IN #1 
SET VARIABLE NAME4 TO .NAMEZ & .NAME3 
SET VARIABLE NAME5 TO MID_INIT IN #1 
SET VARIABLE VFULLNAM TO .NAME4 & .NAMES5 
SET VARIABLE VTRANDAT TO .#DATE 
ENDIF A(Statusl <> 0) 
NEWPAGE 
DRAW PAYFORM WITH VARIABLE VMEMNUM VFULLNAM VTRANDAT 
WRITE"PRESS PAGE DOWN KEY TO ENTER DATA-PRESS ESC KEY TO QUIT"AT 22,8 
ENTER VARIABLE VCHKNUM VPAYMENT RETURN PGDN ESC 
*(If escape, . break loop) 
IF #RETU = ESC THEN 
BREAK 
ENDIF *(Escape) 
LOAD MEM_PAY 
.VMEMNUM .VCHKNUM .VTRANDAT .VPAYMENT PAYMENT 
END *(End of Load) 


*(* show increase in cash due to member payments ) 
SET VARIABLE, VAGCETHUM TOT itoe 

SET VARIABLE VWHAT TO "PD RECV MBR" & .VMEMNUM 
LOAD BAL_JOUR 

cata) .VWHAT .VPAYMENT .VTRANDAT P 


ENDWHILE 

SET MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END OF PUTPAY.CMD ) 


S$ COMMAND 
CRED_BUY 
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K (RAKAKKARKKKAAKAKRAK KAKA AKAAKAKAAKAKKAKKAKKAKKAKAAKAAKKARAKAKKARKARKAKKKK 


PROGRAM : CRED_BUY .CMD 

AUTHOR: J. M. GRAHAM 

DATE: JAN 1987 VER. 1.9 

DESCRIPTION: THIS MODULE ALLOWS THE MANAGER TO ENTER ALL PURCHASES 
MADE ON CREDIT TO EITHER A NEW SUPPLIER/VENDOR OR AN 
EXISTING ACCOUNT. THE MANAGER MUST PROVIDE THE CORRECT 
ACCOUNT NUMBER FOR INVENTORY/ASSET/EXPENSE ACCOUNT 
INCREASES. ALL INTEREST CHARGED TO AN ACCOUNT MUST BE 
ENTERED LABELING PRODUCT AS INTEREST AND INVOICE NUMBER 


Ase 2uRO’. 
ieee USED: SAL JOUR, ZXPENSE, ACCT_PAY, AP_CHG 
FORMS USED: CRED_PUR -_ (98) 
KK KEK RRR ARA KARA RR RAAK KR RKREK ERK KAKA KAKA AKKRKKAKK AER RRARE KKK ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
Set ERROR MESSAGES OFF 


*(* ASK USER IF PREVIOUS/ACTIVE ACCOUNT *) 
LABEL AGAIN 
NEWPAGE 
WRITE "ENTERING CREDIT PURCHASES AND CHARGED INTEREST" AT 2,15 
WRITE "Is this peer yf to be Oe EEC HOmenmacrive account? (Y/N)" AT 475 
FILLIN YOURANS USIN is 4,62 
IF YOURANS = Y THEN 

GOTO OLDCRED 

ENDIF 


LABEL NEWCRED an Draw entry form to get new cred data ) 
NEWPAGE *(* and cred purchase) 
DRAW CRED_PUR 
WRITE "PRESS PGDN KEY TO ENTER DATA - PRESS ESC KEY TO QUIT" AT 24,8 
ENTER VARIABLE VVENDNO VVL:NAME VVF:NAME VVEN:MI VVENADDR VCITY + 
VSTATE VZIP VPHONE VPRODUCT VP:DATE VT:PRICE VINV:NO VACCTNUM + 
VEAP:NO RETURN PGDN ESC 
IF #RETURN = ESC THEN 
GOTO ENDCRED 
ENDIF 


Peeve ACCINUM EXISTS THEN *(% posting inventory increases) 
set VARIABLE VTA:CODE TO ''P" 
LOAD BAL_JOUR 
a ~ eeeciNuM .VPRODUCT .VI:PRICE -VP:DATE .VTX:CODE 


ENDIF 


IF VEXP:NO EXISTS THEN *(* posting expense increases) 
SET VARIABLE VTX:CODE TO "P" 
LOAD EXPENSE 
iii ime RODUCT SVT-PRICE .VP=<DATE .VIX:CODE 


END 

ENDIF | 
SET VARIABLE VCURBAL TO "0.00" a set initial valve of new ec} 
SET VARIABLE VPOSTDAY TO .#DATE *(*X account's owed balance 

LOAD ACCT_PAY *(* enter new creditor's data -- open an account) 


~VVENDNO .VVL:NAME .VVF:NAME .VVEN:MI .VVENADDR .VCITY .VSTATE .VZIP + 
heel ~-VCURBAL .VPOSTDAY 

LOAD AP_CHG *(* posting credit purchases) 

Erin .VVENDNO .VPRODUCT .VP:DATE .VT:PRICE .VINV:NO 


CLEAR VACCTNUM 
CLEAR VEXP:NO 
GOTO REQAGAIN 


fer 


LABEL OLDCRED 
NEWPAGE 
WRITE "PROCESSING A NEW CHARGE TO A CURRENT ACCT. = ESC TO QUIT" Alazee 


LABEL REDO 
WED ed ENTER EITHER THE CREDITOR'S ACCOUNT NUMBER OR LAST NAME" 
A ; 
WRITE "ONLY ENTER ONE OR THE OTHER!" AT 6,15 
FILLIN VVENDNO USING "CREDITOR'S ACCOUNT NUMBER IS - " AT 8,5 
FILLIN VVL:NAME USING "CREDITOR'S LAST NAME IS - " AT 10,5 
IF VVENDNO FAILS THEN 
*(* search record by creditor's last name to provide data) 
SET SGGvrteER +1 STATUS1 FOR ACCT_PAY WHERE VNL:NAME = .VVL:NAME 
*(* warning that customer not currently on database) 
IF STATUS1 <> O THEN 
WRITE "NO SUCH ACCOUNTS PAYABLE ACCOUNT" AT 15,20 
WRITE "PRESS ANY KEY TO REENTER THE CREDITOR'S DATA" AT 18,15 
PAUSE 
GOTO OLDCRED 
ELSE 
SET VARIABLE VVENDNO TO VENDNO IN #1 
GOTO PRTDATA 
ENDIF 
ELSE 
*(* search record by creditor's account number ) 
SET POINTER #1 STATUS1 FOR ACCT_PAY WHERE VENDNO = .VVENDNO 
*(* CUSTOMER NOT CURRENTLY ON DATABASE *) 
IF STATUSI <> O THEN 
WRITE "NO SUCH ACCOUNTS PAYABLE ACCOUNT" AT 15,20 
CE ee "PRESS ANY KEY TO REENTER THE CREDITOR'S DATA" AT 18,15 
S 
GOTO OLDCRED 
E 


SET VARIABLE VVL:NAME TO VNL:NAME IN #1 
GOTO PRTDATA 


LABEL PRTDATA | . a. 
*x(* set data from chosen account to printed in form for verification) 
SET VARIABLE VVF:NAME TO VNF:NAME IN #1 
SET VARIABLE VVEN:MI TO VEN:MI IN #1 
SET VARIABLE VVENADDR TO VEN_STRT IN #1 
SET VARIABLE VCITY TO CITY IN #1 
SET VARIABLE VSTATE TO STATE IN #1 
SET VARIABLE VZIP TO ZIPCODE IN #1 
SET VARIABLE VPHONE TO PHONE IN #1 
NEWPAGE 
DRAW CRED_PUR WITH VARIABLE VVENDNO VVF:NAME VVEN:MI VVL:NAME + 
VVENDADDR VCITY VSTATE VZIP VPHONE 
WRITE "PRESS PGDN KEY TO ENTER DATA = PRESS ESC KEY TO QUIT” Al Zama 
ENTER VARIABLE VP:DATE VT:PRICE VPRODUCT VINV:NO VACCTNUM + 
VEXP:NO RETURN PGDN ESC 
IF #RETURN = ESC THEN 
GOTO ENDCRED 
ENDIF 


IF VACCTNUM EXISTS THEN *(% posting inventory increases) 
SET VARIABLE VTX:CODE TO "Pp! 
LOAD BAL_JOUR 
= ~VACCTNUM .VPRODUCT .VT:PRICE .VP:DATE .VTX:CODE 
D 


ENDIF 


IF VEXP:NO EXISTS THEN a(x posting expense increases) 
SET VARGAELE VIA-= CORE 10 “2. 
LOAD EXPENSE 
~VEXP:NO .VPRODUCT .VI:PRICE .VP:DATE vin: Core 
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END 
ENDIF 


LOAD AP_CHG *(%* pet ang credit purchases or charged interest) 
.VVENDNO .VPRODUCT P:DATE .VI:PRICE .VINV:NO 
END 


CLEAR VACCTNUM 
CLEAR VEAP :NO 


LABEL pee RGAIN *(* gives user opportunity to make more entries) 
NEWPAGE A(X without going thru the main menu) 
WRITE "DO YOU HAVE ANOTHER CREDIT PURCHASE TO ENTER? (7/N)" AT 5,5 
FILLIN YOURANS USING " " AT 5,60 
IF YOURANS = Y THEN 
GOTO AGAIN 
ENDIF 


LABEL ENDCRED *(* return to financial transaction main menu ) 
SET MESSAGES ON 
SET ERROR MESSAGES ON 
RETURN 

*(* END OF CRED _BUY.CMD *) 


$ COMMAND 

CASH_BUY 

KR (KARKAAKAKKKKAKAAKAKK AKA AKKKKAAKAKAKAKKARKKK AKA KA AKAKAKKKKKRAAAAKKKKAKKKKK 

PROGRAM : CASH_BUY.CMD 

AUTHOR : J. M. GRAHAM 

DATE: DEC 1986 VER. 1.4 

DESCRIPTION: THIS MODULE PROVIDES THE MANAGER WITH A METHOD TO POST 
CHECK(CASH) PURCHASES OF THE CLUB. CASH ACCOUNT IS 
DECREASED, INVENTORY INCREASED, AND EXPENSE ACCOUNT 
INCREASED. MANAGER MUST ENTER THE CORRECT ACCOUNT NO. 
TO BE CREDITED/DEBTED. 


Meeees USED: BAL _JOUR, EXPENSE 


FORMS USED: NONE (08) 
KAKAKKAKKKAKKAKKKKERAKKKAKKAAKKKKKAAKKKKAARKKKKAAAKKKAKAKKKKAKKAKKAAAK AAKRKR ) 


Same iooAGES OFF 
SEEN ELYCLUB 
SeleorkROR MESSAGES OFF 


NEWPAGE 
WRITE '"CASH(CHECK) PURCHASE BY MONTEREY NAVY FLYING CLUB" AT 8,15 
roebemeetials IS NOT A CREDIT PURCHASE" AT 10,20 
Bee "PRESS ANY KEY TO ENTER YOUR CASH PURCHASE" AT 14,15 
E 


LABEL CASHBUY 

NEWPAGE 

WRITE "CASH(CHECK) PURCHASE ENTRY" AT 2,25 

FILLIN VTX:DATE USING "PURCHASE DATE WAS - (MM/DD/YY): " AT 5,5 

FILLIN VAMOUNT USING "AMOUNT SPENT ON PURCHASE WAS - $ A Tela 

FILLIN VITEM USING "ITEM PURCHASED WAS - (12 Character limit): "AT 9,5 
FILLIN VBALACCT USING"INCREASE TO ASSET/INVENTORY ACCT NUMBER - "AT11,5 


meer VEXPACCT USING "INCREASE TO EXPENSE ACCT NUMBER - " AT 13,5 
WRITE "IS THE ABOVE DATA CORRECT? (Y/N) " AT 15,20 
FILLIN YOURANS USING " " AT 15,55 


IF YOURANS = N THEN 
CLEAR VAMOUNT 
CLEAR VITEM 
CLEAR VBALACCT 
CLEAR VEXPACCT 
GOTO CASHBUY 

ENDIF 


Sef VARIABLE VCASH TO "1110" 
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SET VARIABLE VTX:CODE TO "M'! 
SET VARIABLE VNAME1 TO ''BOUGHT' x(x label of item purchased) 
SET VARIABLE VWHAT TO .VNAME1]L & .VITEM 


LOAD BAL_JOUR *(* enter cash deduction to cover purchase) 
ae »~VWHAT .VAMOUNT .VTX:DATE .VTX:CODE 


IF VEXPACCT EXISTS THEN *(* posting expense increase due to purchase) 
SET VARIABLE VTX:CODE TO "'P!! 
LOAD EXPENSE 
~-VEXPACCT .VITEM .VAMOUNT .VTX:DATE .VTX:CODE 
END 
ENDIF 


IF VBALACCT EXISTS THEN*(* posting inventory increase due to purchase) 
SET VARIABLE VTX:CODE TO "P 
LOAD BAL_JOUR 
. oe ee «VITEM -VAMOUNT .VIA?2:DATE 2y E CoDe 
N 
ENDIF 


CLEAR VAMOUNT 
CLEAR VITEM 
CLEAR VEXPACCT 
CLEAR VBALACCT 


CLEAR VWHAT 

NEWPAGE 

WRITE "DESIRE TO ENTER ANOTHER CASH PURCHASE?(Y/N)" AT 8,10 
FILLIN YOURANS USING " " AT 8,55 


IF YOURANS = Y THEN 
GOTO CASHBUY 
ENDIF 


SET MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END OF CASH_BUY.CMD *) 


$ COMMAND 


PD_ACCT 
K (RRRKKAKKKAAKKAKARAKKARRKAKRKRK KKK RK AKKKR RAK KAKA AKKK RRR AKAKK RRA AKAKKK KK 


PROGRAM : PD_ACCT .CMD 
AUTHOR: J. M. GRAHAM 
DATE : DEGel 55 VE Reo 
DESCRIPTION: THIS MODULE ALLOWS THE MANAGER TO ENTER PAYMENTS UPON 
ACCOUNTS PAYABLE ACCOUNTS. MANAGER MUST PROVIDE THE 
ewe = ACCOUNT NUMBER OR NAME, PLUS THE PAYMENT 
ATA. 


TABLES USED: BAL _ JOUR, AP_PAID, ACCT Pay 
FORMS : CRED_PAY (98) 
KARRRKAAKKKAKAKKKARKRKKKAKKAKKAAAKKKRAAKAKAKKKAKKKAARAKRRKRKRKRERAAKARRZ ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


LABEL POSTPAY 
CLEAR VVENDNO 
CLEAR VVL:NAME 
CLEAR VPAIDAMT 
CLEAR VWHAT 
CLEAR VCK:NO 
NEWPAGE 
WRITE "POSTING PAYMENT TO AN ACCOUNT" AT 5,25 


WET a eee ENTER EITHER THE CREDITOR'S ACCOUNT NUMBER OR LAST NAME" 
AT 8, 
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WRITE "ENTER ONLY ONE OR THE OTHER!" AT 10,15 
FILLIN VVENDNO USING “CREDITOR'S ACCOUNT NUMBER IS - " AT 12,5 
FILLIN VVL:NAME USING ''CREDITOR'S LAST NAME IS - " AT 14,5 
IF VVENDNO EXISTS AND VVL:NAME EXISTS THEN 
WRITE "PLEASE, ENTER EITHER THE CREDITOR'S ACCOUNT NUMBER OR NAME" 


Bie, LO 
WRITE "ENTER ONLY ONE" AT 17,35 
WRITE "PRESS ANY KEY TO REENTER CREDITOR'S DATA" AT ee 
PAUSE 
GOTO POSTPAY 
EVIDIF 


IF VVENDNO FAILS THEN 
*(* search record by creditor's last name to provide data) 
SET POINTER #1 STATUS1 FOR ACCT_PAY WHERE VNL:NAME = .VVL:NAME 
*(* warning that customer not currently on database) 
PES SlATUSL <> 0 THEN 
WRITE "NO SUCH ACCOUNTS PAYABLE ACCOUNT" AT 16,20 
WRITE "PRESS ANY KEY TO REENTER THE CREDITOR'S DATA" AT 18,15 
PAUSE 
GOTO POSTPAY 
Sie 


SET VARIABLE VVENDNO TO VENDNO IN #1 
eorO POSTDATA 


ELSE 
*(* search record by creditor's account number ) 
SET POINTER #1 STATUS1 FOR ACCT_PAY WHERE VENDNO = .VVENDNO 
*(* CUSTOMER NOT CURRENTLY ON DATABASE *) 
i olLATUSI <> O THEN 
WRITE "NO SUCH ACCOUNTS PAYABLE ACCOUNT" AT 16,20 
WRITE "PRESS ANY KEY TO REENTER THE CREDITOR'S DATA" AT 18,15 


PAUSE 
GOTO POSTPAY 
ESE 


SET VARIABLE VVL:NAME TO VNL:NAME IN #1 
GOTO POSTDATA 


LABEL POSTDATA 
* set data from chosen acct to be printed in form for verification) 
SET VARIABLE VVF:NAME TO VNF:NAME IN #1 
SET VARIABLE VVEN:MI TO VEN:MI IN #1 
SET VARIABLE VVENADDR TO VEN_STRT IN #1 
SET VARIABLE VCITY TO CITY IN #1 
SET VARIABLE VSTATE TO STATE IN #1 
SET VARIABLE VZIP TO ZIPCODE IN #1 
SET VARIABLE VBALOWED TO CURRBAL IN #1 
SET VARIABLE VPOSTDAY TO POSTDATE IN #1 


NEWPAGE 
DRAW CRED_PAY WITH VARIABLE VVENDNO VVF:NAME VVEN:MI VVL:NAME + 
VVENADDR VCITY VSTATE VZIP VBALOWED VPOSTDAY 
Peete "PRESS PGDN KEY TO ENTER DATA - PRESS ESC KEY TO Poa AT 24,8 
ENTER VARIABLE VPAIDAMT VTX:DATE VCK:NO RETURN PGDN ESC 
IF #RETURN = ESC THEN 
Bote CREDEND 
ENDIF 


SET VARIABLE VCASH TO "1110"! 
SET VARIABLE VTX:CODE TO '"'M'! 
SET VARIABLE VWHAT TO "PD ON ACCT" & .VVENDNO 
LOAD BAL_JOUR 

-VCASH .VWHAT .VPAIDAMT .VTX:DATE .VTX:CODE 
END 
LOAD AP_PAID ¥*(* posting of payment ) 
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~VVENDNO .VTX:DATE .VPAIDAMT .VCK:NO 
END 


LABEL RReege ay *x(* gives user opportunity to make more entries) 
NEWPAGE a(x without sve thru the main menu 
WRITE "DO YOU HAVE ANOTHER PAYMENT TO ENTER? (Y/N)" AT 8,15 
FILLIN YOURANS USING " " AT 8,6 
IF YOURANS = Y THEN 
GOTO POSTRAY 
ENDIF 


LABEL CREDEND *(* return to financial transaction main menu ) 
SET MESSAGES ON 
SET ERROR MESSAGES ON 


RETURN 
*(* END OF PD_ACCT.CMD *) 


$ COMMAND 

EDIT_CHG 

* ( REAKKRAKKARKKRKRARKARKERRRARKRKRRARRRRRRRKRRRRRRKRKRRRRRRRRRRRRKRRKRKRRRRRRRRRRRRRRRK 

PROGRAM : EDIT_CHG.CMD 

AUTHOR: ° J. M. GRAHAM 

DATE: JAN 1987 VER. 1.4 

DESCRIPTION: THIS MODULE ALLOWS EDITING OR DELETING OF A MEMBER 
CHARGE TO HIS ACCOUNT THAT MAY HAVE BEEN ENTERED IN 
ERROR. MANAGER MUST KNOW MEMBER NUMBER, DATE OF 
CHARGE, INVOICE/CHARGE SHEET NUMBER TO ENTER THE 
CHANGE. MANAGER MUST INDICATE WHETHER THE ERROR WAS 
DISCOVERED PROIR TO OR AFTER THE END-OF-THE-MONTH 
BILLING. THE MODULE HANDLES THE TRANSACTION DIFFERENTLY 
BASED UPON THE TIME OF ERROR DISCOVERY. 


TABLES USED: MEM_REC, MEM_CHG, MEM_FLT, INST_REC, A/C_REC, INCOME, 
A/C_HRS, FLT_REC 
FORMS. USED: ADJMBREM, ADJCFIFM, ADJINCFM, ADJEXPFM, FLTHRSFM 


ADJMBRFL, ADJFLTHR (9 
KARKKKRKKKAK AK AK RAK RK KKK AK RK RRR AKER AKER AKA KKK KR AKAK KER KKK AK AERA ) 


SET MESSAGESOFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


LABEL BEGINEDIT 


NEWPAGE 
WRITE "PROCESSING CORRECTIONS OR DELETIONS OF MEMBER CHARGES" AT 2725 
WRITE ' e222 292999 9 9 nn eee eee ---- AT 3 
WRITE Se aoa are handled differently if discovered prior to’ 

AT it 


WRITE "or after the regular end-of-month billing.” AT 7,5 
WRITE UBM SRe i ae 
WRITE "1 - TO HANDLE ERRORS DISCOVERED PRIOR TO END-OF-MONTH BILLING" 


AT 10,5 
Cea ee ie HANDLE ERRORS DISCOVERED AFTER END-OF-MONTH BILLING" 
T 


WRITE "3 - EXIT WITHOUT AN UPDATE" AT 14,5 
WRITE “GHOlGE: SIsynl oS 
FILLIN YOURCH USING " " AT P65 
IF YOURCH = 1 THEN 
GOTO PROIREOM 
ENDIF 
IF YOURCH = 2 THEN 
GOTO AFTEREOM 
ENDIF 
IF YOURCH = 3 THEN 
GOTO EDITEND 
ENDIF 
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LABEL PROIREOM 


NEWPAGE 
WRITE "YOU ARE ABOUT TO EDIT OR DELETE A MEMBER'S CHARGE" ne ZO 
Pere "FOLLOW THE sPROMPTS AT THE TOP OF YOUR EDIT SCREEN" AT 4,10 


Pee "TO EFFECT THE EDIT/DELETION AS YOU DESIRE." AT 5, 10" 
WRITE "AFTER AN EDIT IS MADE YOU MUST SAVE THE EDIT BY SELECTING" 


Bue 6,10 
WRITE "OR HIGHLIGHTING THE 'CHANGE' OPTION AND PRESS THE ENTER KEY" 
fr 7,10 


? 


LABEL GETNUM 
WRITE "YOUR MUST KNOW THE MEMBER'S NUMBER" AT 9,20 


meee vMenNUM USING “MEMBER'S NUMBER [S - " AT 11,10 
FILLIN oc USING "CHARGE SHEET/INVOICE NUMBER (IF KNOWN) 
Ble tS,1 


Ser POINTER #1 ao FOR MEM_REC WHERE MEM_NUM EQ .VMEMNUM 
iPestAtusi <> O THEN 
WRITE "NO SUCH MEMBER ACCOUNT" AT 15,20 
hae "PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" AT 16515 
PAUSE 
CLEAR VMEMNUM 
CLEAR VINV:NO 
NEWPAGE 
GOTO GETNUM 
ENDIF 


SET VARIABLE NAME1 TO F:NAME IN #1 

SET VARIABLE NAME2 TO MID_INT IN #1 

SET VARIABLE NAME3 TO .NAME1 & .NAMEZ 
SET VARIABLE NAME4 TO L:NAME IN #1 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO STREET IN #1 
SET VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO STATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 


Pelle MEMBER: ' AT 15,20 
WRITE .VFULNAM AT 15,28 
WRITE .VSTREET AT 16,28 
WRITE .VADDR AT 17,28 
Pelle .VZIP AT 18, 28 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE ADJUSTED? (Y/N)" AT 20,15 
PELLIN YOURANS USING " " AT 20,70 
IF YOURANS = N THEN 
CLEAR VMEMNUM 
CLEAR VINV:NO 
NEWPAGE 
GOTO GETNUM 
ENDIF 


IF VINV:NO EXITS THEN 
ee USING ADJMBRFM WHERE MEM_NUM EQ .VMEMNUM AND INVO_NUM EQ .VINV:NO 


awe USING ADJMEMFM SORTED BY MEM_NUM WHERE MEM_NUM EQ .VMEMNUM 


LABEL FLTMENU 


NEWPAGE 
WRITE ADDITIONAL ADJUSTMENTS THAT YOUR CHANGE MAY REQUIRE" AE 3710 
te et a a a ee eee 8 ee oe ee a ee ee mee RTO 


, 


WRITE WENTER: Ue ly Ow 

WRITE "1 - FLIGHT HOURS ON AIRCRAFT AND MEMBER CHANGE! AT Bio 

melte 2 - INSTRUCTOR FLIGHT HOURS REQUIRE ADJUSTMENT" AT 10, 5 

WRITE"3 - INCOME ACCOUNT ADJUSTMENT DUE TO CHARGE AMOUNT CHANGE"AT PAY eo 
WRITE"4 - EXPENSE ACCOUNT ADJUSTMENT DUE TO CHARGE AMOUNT CHANGE"AT14,5 
meeeeee > - QUIT ... RETURN TO FINANCIAL MENU" AT 16,5 

Peete CHOLTCE "AT 18,5 
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FILLIN YOURCH USINGS | Atel 

IF YOURCH =] THE 

FILLIN VACNUM USING "CHANGE HOURS ON AIRCRAFT NUMBER - " AT 20,20 
EDIT USING FLTHRSFM WHERE A/C_NUM EQ .VACNUM 

EDIT USING ADJMBRFL WHERE MEM_NUM EQ .VMEMNUM AND LAST_A/C EQ .VACNUM 
EDIT USING ADJFLTHR WHERE A/C_NUM EQ .VACNUM 

CLEAR VACNUM 

GOTO FLTMENU 


ENDIF 
IF YOURCH = 2 THEN 
FILLIN VINSTNUM USING "CREDIT INSTRUCTOR NUMBER - " AT 20,20 


EDIT USING ADJCFIFM WHERE INST_NUM EQ .VINSTNUM AND MEM _NUM EQ .VMEMNUM 
CLEAR VINSTNUM 

GOTO FLTMENU 

ENDGE 

IF YOURCH = 3 THEN 
‘a VACCTNUM USING "CHANGE REQUIRED TO INCOME ACCOUNT NUMBER - " 


22,20 
EDIT USING ADJINCFM WHERE ACCT_NUM EQ .VACCTNUM 
CLEAR VACCTNUM 
GOTO FLTMENU 
ENDIF 
IF YOURCH = 4 THEN 
aan On iOnan USING "CHANGE REQUIRED TO EXPENSE ACCOUNT NUMBER - " 


ee 20 0 

EDIT USING UDJEXPFM WHERE ACCT _NUM EQ .VACCTNUM 
CLEAR VACCTNUM 
GOTO FLTMENU 

ENDIF 

IF YOURCH = 5 THEN 
CLEAR VMEMNUM 
CLEAR VINV:NO 
GOTO EDITEND 

ENDIF 

CLEAR VMEMNUM 

CLEAR VINV:NO 

GOTO REQAGAIN 


LABEL AFTEREOM 


NEWPAGE 

ae "CORRECTIONS TO CHARGE AMOUNTS MADE TO MEMBER'S ACCOUNTS™ Fe ae 
2 1 Toy 

WRITE "NOTE: SINCE CHANGES ARE REQUIRED AFTER NORMAL BILLING," Ate, 5 

WRITE "ANY CHANGES TO AN EXPENSE ACCOUNTS MUST BE MADE UNDER" AT 6,12 


Wa ma MANAGER'S UPDATE ENTRY SELECTION OF THE FINANCIAL MENU" 
T /, 
WRITE "MEMBER FLIGHT HOUR CHANGES CAN NOT BE MADE AT THIS TIME."AT 8,12 
WRITE'TOTAL FLIGHT HOURS FOR A SPECIFIC AIRCRAFT ARE MADE UNDER"AT 9,12 
tie EE eel HOUR UPDATE SELECTION OF THE MAIN MENU"! 

T 10, 


WRIGE VENTER: ell 2 ys 

WRITE "1 - TO CORRECT A CHARGE AMOUNT ENTRY ERROR" AT 14,5 

WRITE "2 - TO CORRECT CHARGE MADE TO THE WRONG ACCOUNT" AT Lom 
WRITE '3 - BOTH CHARGE AMOUNT AND MEMBER ACCOUNT POSTED ARE WRONG! 


AT 18,5 
WRITE "4 - TO EXIT WITH NO UPDATE" AT 20,5 
WRITE "“CHOICE:" AT 22,5 
FILLIN YOURCH USING " " AT 22,15 
IF YOURCH = 1 THEN 
*(-- corrections due to incorrect charge entry) 
GOTO GETACCT 


ENDIF 
IF YOURCH = 2 THEN 


*(-- corrections due to charge posted to incorrect MBR account) 
ena. GETELRST 


IF YOURCH = 3 THEN ; 
*(--corrections due to posting an incorrect charge to a wrong acct) 
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GOTO GETBOTH 

ENDIF 

IF YOURCH = 4 THEN | | ) 
*(-- no corretions necessary; return to financial edit menu ) 
GOTO EDITEND 

ENDIF 


LABEL GETACCT 
NEWPAGE 
FILLIN VMEMNUM USING "MEMBER'S NUMBER IS - " AT 5,20 


SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_NUM EQ .VMEMNUM 
Mm STATUSL <> 0 THEN 
Heate "NO SUCH MEMBER ACCOUNT" AT 15,20 
WRITE "PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" AT 16,15 
PAUSE 
CLEAR VMEMNUM 
GOTO GETACCT 
ENDIF 


SET VARIABLE NAME1 TO F:NAME IN #1 

SET VARIABLE NAME2 TO MID_INT IN #1 

SET VARIABLE NAME3 TO .NAME1 & .NAMEZ2 
SET VARIABLE NAME4 TO L:NAME IN #1 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO STREET IN #1 
Sel VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO VSTATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 


Peeloe "MEMBER: " AT 15,20 
WRITE .VFULNAM AT 15,28 
Weel .»VoIREET AT 16,28 
WRITE .VADDR AT 17,28 
Melle .VZIP AT 18,28 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE ADJUSTED?(Y/N)" AT 20,15 
FILLIN YOURANS USING " "= AT 20,70 
IF YOURANS = N THEN 
CLEAR VMEMNUM 
SOTO GETACCT 


ENDIF 
NEWPAGE 
FILLIN VBADAMT USING "CHARGE AMOUNT ENTERED IN ERROR WAS - " AT 7,5 
FILLIN VAMT USING "CORRECT CHARGE AMOUNT IS - " AT 9,5 


FILLIN VINVNO USING "INVOICE NUMBER OF CHARGE WAS -" AT 11,5 
FILLIN VACCTNUM USING "INCOME ACCOUNT EFFECTED BY CHANGE IS - "AT 13,5 
SET VARIABLE VTX:DATE TO .#DATE 
SET VARIABLE VDESCRP TO "CHG COR" & .VMEMNUN 
SET VARIABLE VDESCRP1 TO ''CHARGE CORRECTION" 
SET VARIABLE VCK:NO TO "OQ" 
SET VARIABLE VHRS TO "0"! 
SET VARIABLE VA/CNUM TO "NONE" 
LOAD INCOME ¥*(-- correct income posted in error.) 
ee NOT ~VDESCRP .VBADAMT .VIX:DATE M 
LOAD INCOME *(-- show correct income earned from member ) 
eo ~-VDESCRP1 .VAMT .VTX:DATE P 
LOAD MEM_PAY *(-- corrective charge to zero incorrect charge entry) 
me on ~-VCK:NO .VTX:DATE .VBADAMT .VDESCRP1 
LOAD MEM_CHG ¥*(-- show correct member's charge amount) 
ee ~VINVNO .VTX:DATE .VAMT .VDESCRP .VHRS .VA/CNUM 
CLEAR VBADAMT 
CLEAR VAMT 
CLEAR VACCTNUM 
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CLEAR VINVNO 


CLEAR VMEMNUN 
GOTO REQAGAIN 


LABEL GETFIRST 


NEWPAGE 
aaa aaa USING"CHARGE POSTED IN ERROR TO ACCOUNT NUMBER - " 
AT 10, 
SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_NUM EQ .VBADMBR 
IF STATUS), <> gee HEN 


WRITE 
WRITE 


PAUSE 
CLEAR VBADMBR 
GOTO GETFIRS® 


"NO SUCH MEMBERTACGOUNT. 
“PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" 


AT 15320 
AY 16,15 


ENDIF 

SET VARIABLE NAME1 TO F:NAME IN #1 

SET VARIABLE NAME2 TO MID_INT IN #1 

SET VARIABLE NAME3 TO .NAME1 & .NAMEZ 

SET VARIABLE NAME4 TO L:NAME IN #1 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 

SET VARIABLE VSTREET TO STREET IN #1 

SET VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO STATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 

SET VARIABLE VZIP TO ZIPCODE IN #1 

WRITE "CHARGE POSTED IN ERROR TO: " AT 15,10 

WRITE .VFULNAM AT 15,40 

WRITE .VSTREET AT 16,40 

WRITE .VADDR AT 17,40 

WRITE .V2ZIP AT 18, 40 

WRITE "1S a THE ACCOUNT CHARGE WAS POSTED IN ERROR TO? (Y/N 
A i 

FILLIN YOURANS USING " " AT 2066 


IF YOURANS = N THEN 
CLEAR VBADMBR 
GOTO GETFIRST 

ENDIF 


LABEL GETSECOND 
NEWPAGE 
FILLIN eae ar USING "CHARGE SHOULD HAVE BEEN MADE TO ACCOUNT - " 
A 2 


; 


SET POINTER #2 STATUS2 FOR MEM_REC WHERE MEM_NUM EQ .VMEMNUM 
IF STATUSZ <> 0 THEN 


WRITE "NO SUCH MEMBER ACCOUNT" AT 15,20 
eaTee “PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" AT 16 , ie 
PAUSE 


CLEAR VMEMNUM 
GOTO GETSECOND 


ENDIF 


Sea 
Sen 
SET 
Sel 
SET 
SET 
SET 
SET 
SET 
oe 


WRITE 


VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 


"CHARGE SSHOULD SE POSTED TO. 


NAME1 TO F:NAME IN #2 
NAME2 TO MID_INT IN #2 
NAME3 TO .NAME1] & .NAMEZ 
NAME4 TO L:NAME IN #2 
VFULNAM TO .NAME3 & .NAME4 
VSTREET TO STREET IN #2 
VCITY To verey IN 42 

VSTATE TO STATE IN #2 
VADDR TQ .VCITY & .VSTATE 
VZIP TO ZIPCODE IN #2 


AT 6,10 


WRITE .VFULNAM AT 6,40 


WRITE .VSTREET AT 7 


,40 
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WRITE .VADDR AT 8,40 
WRITE .VZIP AT 9,40 
Peeve "IS oe THE CORRECT MEMBER'S ACCOUNT TO BE CHARGED? (Y/N)" 
AT ll, 
FILLIN YOURANS USING " " AT 11,72 
IF YOURANS = N THEN 
CLEAR VMEMNUM 
GotO GETSECOND 


ENDIF 
FILLIN VAMT USING "AMOUNT OF CHARGE TO BE POSTED - " AT 14,10 
FILLIN VINVNO USING "INVOICE NUMBER OF CHARGE WAS - " AT 18,10 


Sal VARIABLE VCK:NO TO "0" 

SET VARIABLE VTIX:DATE TO .#DATE 

Bae VARIABLE VDESCRP TO "CHARGE CORRECTION" 
gee VARS TO "0" 

SET VA/CNUM TO "NONE" 


LOAD MEM_CHG *(* post correct charge to account) 
. ~.VMEMNUM .VINVNO .VTX:DATE .VAMT .VDESCRP .VHRS .VA/CNUM 
EN 


LOAD MEM_PAY ¥*(* zero incorrect charge to account) 
sD ~VBADMBR .VCK:NO .VTX:DATE .VAMT .VDESCRP 
N 


CLEAR VMEMNUM 
CLEAR VBADMBR 
CLEAR VAMT 
CLEAR VINVNO 
GOTO REQAGAIN 


LABEL GETBOTH 
NEWPAGE 
FILLIN Me HellG “CHARGE POSTED IN ERROR TO ACCOUNT NUMBER - ” 
A 
SET POINTER #1 STATUS1 FOR MEMZREC WHERE MEM.LNUM EO™.VBADMBR 
IF STATUS1 <> 0 THEN 
WRITE "NO SUCH MEMBER ACCOUNT" AT 15,20 
iva PEeRcooeANs KEY TOOREENTER THE MEMBER'S NUMBER" AT 16,15 
S 
CLEAR VBADMBR 
GOTO GETBOTH 
ENDIF 


SET VARIABLE NAME1 TO F:NAME IN #1 

SET VARIABLE NAME2 TO MID_INT IN #1 

SET VARIABLE NAME3 TO .NAME1 & .NAMEZ2 
SET VARIABLE NAME4 TO L:NAME IN #1 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
Sint VARIABLE VSTREET TO STREET IN #1 
Bee VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO STATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 


melte “CHARGE POSTED IN ERROR TO:" AT 15,10 
WRITE .VFULNAM AT 15,40 
WRITE .VSTREET AT 16,40 
WRITE .VADDR AT 17,40 
WRITE .VZIP AT 18,40 
WRITE ane Bone THE ACCOUNT THE CHARGE WAS POSTED IN ERROR TO?(Y/N)" 
A ! 
FILLIN YOURANS USING " " AT 20,70 
IF YOURANS = N THEN 
CLEAR VBADMBR 
GOTO GETBOTH 
ENDIF 


LABEL GETNEXT 
NEWPAGE 
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‘en SSaniole USING "CHARGE SHOULD HAVE BEEN MADE TO ACCOUNT - " 
ic 
SET POINTER #2 STATUS2 FOR MEM _REC WHERE MEM_NUM EQ .VMEMNUM 
IF STATUSZ <> 0 THEN 
WRITE "NO SUCH MEMBER ACCOUNT" AT 15,20 
WRITE "PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" AT lo, 1s 
PAUSE 
CLEAR VMEMNUM 
GOTO GETNEXT 
ENDIF 


SET VARIABLE NAME1 TO F:NAME IN #2 

SET VARIABLE NAME2 TO MID_INT IN #2 

SET VARIABLE NAME3 TO .NAME1 & .NAMEZ 
SET VARIABLE NAME4 TO L:NAME IN #2 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO STREET IN #2 
SET VARIABLE VCITY TO CITY IN #2 

SET VARIABLE VSTATE TO STATE IN #2 

SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #2 


WRITE “CHARGE TO BE UPOSTHEelO.) 20>, 10 
WRITE: .VFULNAM AT 5,40 
WRITE .VSTREET AT 6,40 
WRITE .VADDR AT 7,40 
WRITE .VZIP AT &, 40 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE CHARGED? (Y/N)" AT 10,10 
FILLIN YOURANS USING " " AT 10,65 
IF YOURANS = N THEN 
CLEAR VMEMNUM 
GOTO GETNEAT 


ENDIF 

FILLIN VBADAMT USING 'CHARGE AMOUNT ENTERED IN ERROR WAS - " AT 12,5 
FILLIN VAMT USING "CORRECT CHARGE AMOUNT IS - " AT 14,5 

FILLIN VINVNO USING "INVOICE NUMBER OF CHARGE - " AT 16,5 


FILLIN VACCTNUM USING"NUMBER OF INCOME ACCOUNT EFFECTED IS - "AT mS ,5 
SET VARIABLE VTX:DATE TO .#DATE 

SET VARIABLE VDESCRP TO "CHG COR" & .VBADMBR 

SET VARIABLE VDESCRP1 TO "CHARGE CORRECTION” 

SET  VERIABEE VCK-NO 10 70” 

SET VARIABLE VHRS TO "0" 

SET VARIABLE VA/CNUM TO "NONE" 


LOAD INCOME *(-- correct income posted in error ) 
»~VACCTNUM .VDESCRP .VBADAMT .VTX:DATE M 


END 
LOAD INCOME *(-- show correct income earned from member ) 
~VACCTNUM .VDESCRP1 .VAMT .VTX:DATE P 
END 
LOAD MEM_CHG *(-- corrective change to zero the correct account) 
. »~VMEMNUM .VINVNO .VTX:DATE .VAM VDESCRP1 .VHRS .VA/CNUM 
D 
LOAD MEM_PAY *(-- show correction of incorrect charge to account ) 
a »-VBADMBR .VCK:NO .VTX:DATE .VBADAMT .VDESCRP1 
D 


CLEAR VBADAMT 
CLEAR VAMT 
CLEAR VINVNO 
CLEAR VACCTNUM 
CLEAR VMEMNUM 
CLEAR VBADMBR 
GOTO REQAGAIN 


LABEL REQAGAIN 


NEWPAGE 
WRITE "DO YOU WISH TO EDIT ANOTHER MEMBER CHARGE? (Y/N)" AT 5,10 
FILEIN YOURANS@USING = saT 5760 
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IF YOURANS = Y THEN 
GOTO" BEGINEDIT 
ENDIF 


LABEL EDITEND 

SET MESSAGES ON 
SeeeeeRROR MESSAGES ON 
RETURN 

*(* END OF EDIT_CHG.CMD ) 


$ COMMAND 

EDIT_PAY | | 

* ( KERR KKARRRRKRKKKRRAKKRARKKKR ARK RAK AARRRAKRRRARKRARKRRRERRKKKRAAR 

PROGRAM : EDIT_PAY.CMD 

AUTHOR: J. M. GRAHAM 

DATE: JAN 1987 VER. 1.9 

DESCRIPTION: THIS MODULE ALLOWS EDITING OR DELETING OF A MEMBER 
PAYMENT TO HIS ACCOUNT IF IN ERROR. MANAGER MUST 
INDICATE WHETHER THE ERROR WAS DISCOVERED PROIR TO 
OR AFTER THE END-OF-MONTH BILLING. THE MODULE 
HANDLES THE TRANSACTION DIFFERENTLY BASED UPON THE 
TIME OF ERROR DISCOVERY. THE MANAGER MUST KNOW THE 
MEMBER NUMBER AND ORIGINAL PAYMEMT AMOUNT MADE. 


teu USED: MEM REC, MEM_PAY, BAL_JOUR 


mebis USED: ADJMEMFM, ADJUSTFM (9 8) 
FOC S OIC GOOG UISE IO OIC I TOI IOI TOO TA TORI Ta Ta Ba AKER ) 


Pee SoSAGES OFF 
eee LYCLUB 
SeeeRROR MESSAGES OFF 


LABEL BEGINEDIT 


NEWPAGE 

WRITE "PROCESSING CORRECTIONS OR DELETIONS OF MEMBER PAYMENTS" AT 2,15 
WRITE "nen nn nnn ne nnn nn nn nr nnn rn nnn nc rn cree rrr rrr er rrer- A 3,15 
WRITE "Corrections are handled differently if discovered prior to! 


WRITE "or after the regular end-of-month billing." AT 7,5 
nome  ENTER:" AT 9,5 
WRITE "1 - TO HANDLE ERRORS DISCOVERED PRIOR TO END-OF-MONTH BILLING" 


Ere 10,5 
eT 12. ‘To HANDLE ERRORS DISCOVERED AFTER END-OF-MONTH BILLING" 


Paes s)- EXIT WITHOUT AN UPDATE" AT 14,5 
Pee "EHOICE: " AT 16,5 
roel YOURCH USING " " AT 16,15 
Me SYOURCH = 1 THEN 
GOTO PROIREOM 
BNIDIF 
IF YOURCH = 2 THEN 
GOTO AFTEREOM 
ENDIF 
fee2OURCH = 3 THEN 
GOTO EDITEND 
ENDIF 


LABEL PROIREOM 

NEWPAGE 

Seebe, 1OU ARE ABOUT TO EDIT OR DELETE A MEMBER'S PAYMENT" AT 2,10 
meerte FOLLOW THE PROMPTS AT THE TOP OF YOUR.EDIT SCREEN" AT 4,10 

wewie lO EFFECT THE EDIT/DELETION AS YOU DESIRE." AT 5,10 

WRITE "AFTER AN EDIT IS MADE YOU MUST SAVE THE EDIT BY SELECTING" 


AT 6,10 
WRITE NOR, HIGHLIGHTING THE 'CHANGE' OPTION AND PRESS THE ENTER KEY" 
A 


a 


LABEL GETNUM 
WRITE "YOUR MUST KNOW THE MEMBER'S NUMBER" AT 9,20 
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FILLIN VMEMNUM USING "MEMBER'S NUMBER IS - " AT , 10 

See 13-i9 USING "MEMBER PAID BY CHECK NUMBER (tf KNOWN) - 
A 

SET POINTER #1 STATUS1 FOR MEM _REC WHERE MEM_NUM EQ .VMEMNUM 

IF STATUS) <> Oe LnE 


WRITE "NO SUCH MEMBER ACCOUNT" AT 15,20 

BhneE "PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" AT 16729 
A 

NEWPAGE 


CLEAR VMEMNUM 
CLEAR VCK:NO 


GOTO GETNUM 
ENDIF 
SET VARIABLE NAME1 TO F:NAME IN #1 
SET VARIABLE NAME2 TO MID_INT IN #1 
SET VARIABLE NAME3 TO .NAME1 & .NAMEZ 
SET VARIABLE NAME4 TO L:NAME IN #1 
SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO STREET IN #1 
SET VARIABLE VCITY TO CITY IN #1 
SET VARIABLE VSTATE TO STATE IN #1 
SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 
SET VARIABLE VCASH TO "1110" 
SET VARIABLE VWHAT TO "PD ON ACCT" & .VMEMNUM 
WRITE SUBMSER- eat elo 2 
WRITE .VFULNAM AT 15,28 
WRITE 7. VOURER pene o, 26 
WRITE .VADDR AT 17,28 
WRETE VGleean 16? 28 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE ADJUSTED? (Y/N)"" AT 20,15 


FILLIN YOURANS USING " " 
IF YOURANS = N THEN 
NEWPAGE 
CLEAR VMEMNUM 
CLEAR VCK:NO 


AT 20,70 


GOTO GETNUM 

ENDIF 
LE VCKNO@E airs Loe 

EDIT USING ADJMEMFM WHERE MEM_NUM Bg »~VMEMNUM AND CHK_NUM EQ .VCK:NO 
ey USING ADJUSTFM WHERE ACCT_NUM EQ .VCASH AND WHAT EQ .VWHAT 
ELSE 

EDIT USING ADJMEMFM SORTED BY MEM_NUM WHERE MEMeNUM EO {VMEMigt 
citne ee USING ADJUSTFM WHERE ACCT_NUM EQ .VCASH AND WHAT EO . VWHAT 
WRITE "MAKING CORRECTION TO ACCOUNT" AT 10,20 


CLEAR VMEMNUM 
CLEAR VCK:NO 
GOTO REQAGAIN 


LABEL AFTEREOM 


NEWPAGE 

WRITE CORRECTIONS TO PAYMENTS MADE TO MEMBER'S ACCOUNTS © AT 57 to 
WRITE ara a AT 6,10 
WRITE NENTER:" AT 10,5 

WRITE "1 = TO CORRECT A PAYMENT ENTRY ERROR eee 

WRITE "2 - TO CORRECT PAYMENT MADE TO THE WRONG ACCOUNT" AT 14,5 
Ne acu PAYMENT AMOUNT AND MEMBER ACCOUNT POSTED ARE WRONG" 
WRITE "4 = TO EXIT WITH NO UPDATE Ab te > 

WRITE SCHOPGE cE Al) Z07 5 

FILLIN YOURCH USING " " aT 2015 

IF YOURCH =) 1) THEN 


*(-- corrections due to incorrect payment entry) 
GOTO GETACCT 
ENDIF 
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IF YOURCH = 2 THEN 


*(=-- corrections due to payment posted to incorrect MBR account) 
SOlO GHIFIRSI 
ENDIF 


IF YOURCH = 3 THEN . 
*(--corrections due to posting an incorrect payment to a wrong acct) 
GOTO GETBOTH 


DIF 

IF YOURCH = 4 THEN : 
*(-- no corretions necessary; return to financial edit menu ) 
eure EDITEND 

ND 


Babe CETACCT 
NEWPAGE 
eel IN VMEMNUM USING "MEMBER'S NUMBER IS - " AT 5,20 


Bee erOLNlER #1 STATUS! FOR MEM_REC WHERE MEM_NUM EQ .VMEMNUM 
Peo ltalUS!l <> O THEN 
WRITE "NO SUCH MEMBER ACCOUNT" AT 15,20 
Bee "PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" AT 16,15 
SE 
CLEAR VMEMNUM 
GOTO GETACCT 
ENDIF 


SET VARIABLE NAME1 TO F:NAME IN #1 

SET VARIABLE NAME2 TO MID_INT IN #1 

SET VARIABLE NAME3 TO .NAME1 & .NAMEZ2 
SET VARIABLE NAME4 TO L:NAME IN #1 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO STREET IN #1 
me. VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO VSTATE IN #1 

Bel VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 


feebe "MEMBER: “" AT 15,20 
WRITE .VFULNAM AT 15,28 
Meite .-VSIREET AT 16,28 
MALLE .VADDR AT 17,28 
WRITE .VZIP AT 18, 28 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE ADJUSTED? (Y/N)" AT 20,15 
FILLIN YOURANS USING " " AT 20,70 
IF YOURANS = N THEN 
CLEAR VMEMNUM 
sero GETACCT 


ENDIF 

NEWPAGE 

FILLIN VBADAMT USING "PAYMENT AMOUNT ENTERED IN ERROR WAS - " AT 7,5 
BIGEIN VAMT USING “CORRECT PAYMENT AMOUNT IS - " AT 9,5 


FILLIN VCK:NO USING “CHECK NUMBER OF PAYMENT -'"' AT 11,5 

SET VARIABLE VTX:DATE TO .#DATE 

SET VARIABLE VDESCRP TO UPD COR" & .~.VMEMNUN 

SET VARIABLE VDESCRP1 TO "PAYMENT CORRECTION" 

SET VARIABLE VINVNO TO "NONE" 

SET VARIABLE VHRS TO "Q!! 

SET VARIABLE VA/CNUM TO "NONE" 

Sel VARIABLE VCASH TO "1110! 

LOAD BAL_JOUR *(* correct cash account by errored amount) 
~VCASH .VDESCRP1 .VBADAMT .VTX:DATE M 


END 
LOAD BAL_JOUR *(* show correct amount received from member ) 
Bi, .VCASH .VDESCRP .VAMT .VTX:DATE P 
D 
LOAD MEM_CHG *(* corrective charge to zero incorrect payne aba entry) 
~VMEMNUM .VINVNO .VTX:DATE .VBADAMT .VDESCRP1 .VHRS A/CNUM 


END 
LOAD MEM_PAY *(* show correct member's payment amount) 
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a ee ~VCK:NO .VTX:DATE .VAMT .VDESCRP1 
N 

CLEAR VMEMNUM 

CLEAR VBADAMT 

CLEAR VAMT 

CLEAR VCK:NO 

GOTO REQAGAIN 


LABEL GETFIRST 
NEWPAGE 
ae Aap USING "PAYMENT POSTED IN ERROR TO ACCOUNT NUMBER - " 
A 


SET POINTER #1 STATUS] FOR MEM_REC WHERE MEM_NUM EQ .VBADMBR 
IF STATUS1 <> O THEN 
WRITE "NO SUCH MEMBER ACCOUNT" AT 15,20 
nee “PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" AT 16; 4% 
AUS 
CLEAR VBADMBR 
GOTO GEIPIRS. 
ENDIF 


SET VARIABLE NAME1 TO F:NAME IN #1 

SET VARIABLE NAME2 TO MID_INT IN #1 

SET VARIABLE NAME3 TO .NAME1 & .NAME2 
SET VARIABLE NAME4 TO L:NAME IN #1 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO STREET IN #1 
SET VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO STATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 


WRITE "PAYMENT POSTED IN ERROR TO: ' AT 15,10 

WRITE .VFULNAM AT 15,40 

WRITE .VSTREET AT 16,40 

WRITE .VADDR AT 17,40 

WRITE .VZIP AT 18,40 

WRITE "Is THIS THE ACCOUNT PAYMENT WAS POSTED IN ERROR TO?(7/Ne 
a 


2010 
FILLIN YOURANS USING " " AT 20,68 
IF YOURANS = N THEN 
CLEAR VBADMBR 
GOTO GETPINs! 
ENDIF 


LABEL GETSECOND 
NEWPAGE 
er ome USING "PAYMENT SHOULD HAVE BEEN MADE TO ACCOUNT - " 
A 


SET POINTER #2 STATUS2 FOR MEM_REC WHERE MEM_NUM EQ .VMEMNUM 
IF STATUS2Z <> 0 THEN 
WRITE "NO SUCH MEMBER ACCOUNT" AT 15,20 
OEE "PRESS ANY KEY TO REENTER THE MEMBER'S NUMBER" AT Tonle 
CLEAR VMEMNUM 
GOTO GETSECOND 
ENDIF 


SET VARIABLE NAME1 TO F:NAME IN #2 

SET VARIABLE NAME2 TO MID_INT IN #2 

SET VARIABLE NAME3 TO .NAME] & .NAME2 
SET VARIABLE NAME4 TO L:NAME IN #2 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO STREET IN #2 
SET VARIABLE VCITY TO CITY IN #2 

SET VARIABLE VSTATE TO STATE IN #2 

SET VARIABLE VADDR TO .VCITY & .VSTATE 
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SET VARIABLE VZIP TO ZIPCODE IN #2 


WRITE 
WRITE 
WRITE 
WRITE 
WRLLE 
WRITE 


Heaven t SHOULD BE POSTED TO: " 
~VFULNAM AT 6,40 

.VSTREET AT 7,40 

.VADDR AT 8,40 

VGUeeal 9, 40 

"IS THIS THE CORRECT MEMBER'S ACCOUNT TO POST PAYMENT Oren /N it 


AT 6,10 


Pa 


FILLIN YOURANS USING " " AT di, 7 2 
IF YOURANS = N THEN 

CLEAR VMEMNUM 

BOTO GETSECOND 


ENDIF 
FILLIN VAMT USING "AMOUNT OF PAYMENT TO BE POSTED - " AT 14,10 
meeeiN VCK:NO USING "PAYMENT MADE BY CHECK NUMBER - “~~ AT 18,10 


SET VARIABLE VINVNO TO 


"NONE !! 


SET VARIABLE VTX:DATE TO .#DATE 


Sel VARIABLE VDESCRP TO 
eer VHRS TO 


| YPAYMENT CORRECTION” 
ig! 


SET VA/CNUM TO "NONE"! 


LOAD MEM_CHG 
. VBADMBR 


LOAD MEM_PAY 
. VME 


END 


END 


ent to account) 


A(* zero incorrect 
~.VDESCRP .VHRS .VA/CNUM 


~VINVNO .VTX:DATE .VAM 


ment to account) 


OSE commeec earns 
T PAYMENT 


MNUM eo xh —VIX:DATE .V 


CLEAR VBADMBR 
CLEAR VMEMNUM 
CLEAR VAMT 
CLEAR VCK:NO 
GOTO REQAGAIN 


LABEL GETBOTH 
NEWPAGE 
FILLIN VBADMBR USING 


"PAYMENT POSTED IN ERROR TO ACCOUNT NUMBER - " 


pale 0, 10 
SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_NUM EQ .VBADMBR 
TF STATUS! <> O THEN 


WRITE "NO SUCH MEMBER ACCOUNT" AT 15, 
Bee Pehaso vay KEY TO REENTIER THE MEMBER'S MMOBER AT 16,15 
PAUSE 


CLEAR VBADMBR 
Soro GELBOTH 


ENDIF 

SET VARIABLE NAME1 TO F:NAME IN #1 

SET VARIABLE NAME2 TO MID_INT IN #1 

SET VARIABLE NAME3 TO .NAME1 & .NAME2 

SET VARIABLE NAME4 TO L:NAME IN #1 

SET VARIABLE VFULNAM TO .NAME3 & .NAME4 

Sel VARIABLE VSTREET TO STREET IN #1 

SET VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO STATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 

SET VARIABLE VZIP TO ZIPCODE IN #1 

Pelte “PayMENT POSTED IN ERROR TO:" AT 15,10 
WRITE .VFULNAM AT 15,40 

WRITE .VSTREET AT 16,40 

WRITE .VADDR AT 17,40 

WRITE .VZIP AT 18, 40 

WRITE aaah THE ACCOUNT PAYMENT WAS POSTED IN ERROR TO? (Y/N)"' 


FILLIN YOURANS USING " ! 


BL 20,70 


IF YOURANS = N THEN 
CLEAR VBADMBR 


3 


GOTO GETBOTH 
END 


LABEL GETNEXT 
NEWPAGE 
FILLIN VMEMNUM USING 
AT <7 33,10 
SET POINTER #2 STATU 
IF STATUS2 <> OQ THEN 
WROTE 
WRITE "PRESS ANY 
PAUSE 
CLEAR VMEMNUM 
GOTO GETNEXT 


"NO SUCH MEMBER ACCOUNT" 


“PAYMENT SHOULD HAVE BEEN MADE TO ACCOUNT - 
S2 FOR MEM_REC WHERE MEM_NUM EQ .VMEMNUM 


AT l5eze 
KEY TO REENTER THE MEMBER'S NUMBER’ 


AT 167 c5 


ENDIF 


San 
San 
Sea 


VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 


NAME1 TO F:NAME IN #2 
NAME2 TO MID_INT IN #2 
NAME3 TO .NAME1 & .NAME2 
NAME4 TO L:NAME IN #2 
VFULNAM TO .NAME3 & .NAME4 
VSTREET TO STREET IN #2 
VCLTY TOverRY Sr 42 

VSTATE TO STATE IN #2 
VADDRIIC -VGlin &. Volale 
VZIP TO ZIPCODE IN #2 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
FILLIN YOURANS USING " " 
IF YOUANS = N THEN 
CLEAR VMEMNUM 
GOTO GETNEAT 
ENDIF 


FILLIN VBADAMT USING 


"PAYMENT TO BE POSTED 20> "eam 5, 10 
.VFULNAM AT 5,40 

.VSTREET AT 6,40 

.VADDR AT 7,40 

-VZIP AT 8, 40 


Ale; oS 


"TS THIS THE CORRECT ACCOUNT TO BE PAID? (Y/N) " 


"PAYMENT AMOUNT ENTERED IN ERROR WAS - " 
FILLIN VAMT USING "CORRECT PAYMENT AMOUNT IS - " 


AT 0F ts 


AT 125 
AT 14,5 


FILLIN VCK:NO USING 


SET 
SET 
See 
Se. 
SE], 
SET 
SEL 
SE 


VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 


"CHECK NUMBER OF PAYMENT ==" 


VTX:DATE TO .#DATE 

VDESCRP TO “PD COR x .VEADMER 
VDESCRP1 TO “PAYMENT CORREGIIoNE 
VDESCRP2 “PD ON ACCIY "co Vili 
VINVNO TO "NONE" 

VHRSe lO. On 

VA/CNUM TO "NONE" 

VGash 10.7 Pron 


AT 16,5 


LOAD BAL_JOUR *(-- correct cash account by errored amount ) 


a .VCASH .VDESCRP .VBADAMT .VTX:DATE M 
D 


LOAD BAL_JOUR *(-- 
: .VCASH .VDESCRPZ .VAMT .VIX:DATERE 
ND 


LOAD MEM_CHG 
- VBADMBR 
END 


LOAD MEM_PAY 
» VMEMNUM 
END 


CLEAR VMEMNUM 
CLEAR VBADMBR 
CLEAR VBADAMT 
CLEAR VAMT 
CLEAR VCK:NO 


*(-- show correct member's 
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*(=-- corrective charge to zero incorrect 
-VINVNO .VTX:DATE .VBADAMT .VDESCRPI1 


show correct amount received from member ) 


payne entry) 


. VHR VA/CNUM 


ayment amount to account ) 


~VCK:NO .VIA=DATE <VaAuE PAYMENT 


GOTO REQAGAIN 


LABEL REQAGAIN 
NEWPAGE 
WRITE "DO YOU WISH TO EDIT ANOTHER MEMBER ACCOUNT? (Y/N)" AT 5,10 
FILLIN YOURANS USING " " AT 5,60 
[TF YOURANS = Y THEN 
eerOQ BEGINEDIT 
ENDIF 


LABEL EDITEND 
SET MESSAGES ON 
SaeenROR MESSAGES ON 


RETURN 
*(* END OF EDIT_PAY.CMD ) 


S COMMAND 

ISI IGT G SSSI SSCS RIO RIOT III IR RIA IIT IRIS IRIS AR IIIR RII 
PROGRAM : Ebi tear. CMD 

AUTHOR: J. M. GRAHAM 

DATE: DEG TSS5 VER. 1.4 


DeeerielTlON: THIS MODULE ALLOWS EDITING OR DELETING OF PURCHASES 
MADE TO AN ACCOUNTS PAYABLE ACCOUNT. THE MANAGER 
WILL ALSO NEED TO PROVIDE THE ACCOUNT NUMBER OF THE 
EXPENSE AND/OR ASSET ACCOUNT(S) EFFECTED BY THE CHANGE. 


tebe UseD: ACCT _PAY, BAL_JOUR, AP_CHG, EXPENSE 


FORMS USED: ADJCHGEM, ADJUSTFM, ADJEXPFM 08) 
KAKAAAKKKAAKKKRKKAKKAKKKRKAKKKRAKAKAKKK AKAKRKKAKAKKKAKKKKRARKRKRARARRARARKERRR 


Sau IESOAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


LABEL BEGINEDIT 


NEWPAGE 
WRITE "PROCESSING PURCHASE CORRECTIONS TO ACCOUNTS PAYABLE ACCOUNTS" + 
Eee ee oa - nono aan nso soe neon o-oo e oe 33 eeooee =e "4 


3,15 
WRITE "Corrections are handled differently if discovered prior to" + 


Be, 10 
WRITE "or after the regular end-of-month billing." AT 7,5 
pee GNTER:" AT 3,5 
WRITE "1 - TO HANDLE ERRORS DISCOVERED PRIOR TO END-OF-MONTH BILLING" + 


Br.i0,5 
geet e ef ag HANDLE ERRORS DISCOVERED AFTER END-OF-MONTH BILLING" + 


2, 

WRITE "3 © EXIT WITHOUT AN UPDATE" AT 14,5 
Peete GHOLTCE: " AT 16,5 
MebEENeYOURCH USING " " AT 16,15 
IF YOURCH = 1 THEN 

GOTO PROIREOM 
ENDIF 
IF YOURCH = 2 THEN 

GOTO AFTEREOM 
ENDIF 
/m>eYOURCH = 3 THEN 

GOTO EDITEND 
ENDIF 


LABEL PROIREOM 
NEWPAGE 
WRITE "YOU ARE ABOUT TO EDIT OR DELETE A PURCHASE TO AN ACCOUNT" + 


T 2, 
Mieele “FOLLOW THE PROMPTS AT THE TOP OF YOUR EDIT SCREEN" AT 4,10 


Seebee' TO EFFECT THE EDIT/DELETION AS YOU DESIRE." AT 5,10 
WRITE "AFTER AN EDIT IS MADE YOU MUST SAVE THE EDIT BY SELECTING" + 


175 


AT 6,10 
ea ee ee THE 'CHANGE' OPTION AND PRESS THE ENTER KEY" + 
ar 


s 


LABEL GETNUM 

WRITE "YOU WILL NEED TO PROVIDE THE FOLLOWING DATA:" AT 9,10 
WRITE "CREDITOR'S ACCOUNT NUMBER" AT 11,20 

WRITE "THE EXPENSE ACCOUNT NUMBER EFFECTED! AT bz 20 

WRITE "THE ASSET ACCOUNT NUMBER EFFECTED" AT 13,20 

WRITE "PLEASE, ENTER THE DATA AS REQUESTED" AT 15,20 


FILLIN VVENDNO USING "CREDITOR'S ACCOUNT NUMBER IS - " AT 177s 
FILLIN VEXPACCT USING "EXPENSE ACCOUNT NUMBER EFFECTED I5 =9" Alaiye 
FILLIN VASSTACT USING "ASSET ACCOUNT NUMBER EFFECTED @[S=5") 202 


SET POINTER #1 STATUS1 FOR ACCT_PAY WHERE VENDNO EQ .VVENDNO 
IF STATUS] <> 0 THEN 
WRITE “NO SUCH CREDITOR USBACCOUIIT Al 2Z7Z0 
OA Tee "PRESS ANY KEY TO REENTER THE CREDITOR'S NUMBER" AT 237.8 
ws 
NEWPAGE 
CLEAR VVENDNO 
GOTO GETNUM 
ENDIF 


SET VARIABLE NAME1 TO VNF:NAME IN #1 
SET VARIABLE NAME2 TO VEN:MI IN #1 

SET VARIABLE NAME3 TO .NAME1] & .NAMEZ2 
SET VARIABLE NAME4 TO VNL:NAME IN #1 
SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #1 
SET VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO STATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 


NEWPAGE 

Whore,  CREDELOR aU OAT. 20 

WRITE .VFULNAM AT 10,30 

WRITE GVvslRebleeac - ise 

WRITE .VADDR AT 12,30 

WRITE .VZIP AT 13,30 

WRITE "IS THIS THE CORRECT ACCOUNT TO BE ADJUSTED? (Y/N)" AT z20pa¢ 


FILLIN YOURANS USING " " AT 20,70 
IF YOURANS = N THEN 
NEWPAGE 


CLEAR VVENDNO 
GOTO GETNUM 
ENDIF 


EDIT USING ADJCHGFM SORTED BY VENDNO WHERE VENDNO EQ .VVENDNO 


LF VASSTACT EXISTS THEN 
a USING ADJUSTFM WHERE ACCT_NUM EQ .VASSTACT 
TF VEXPACCT EATS 1S Tae 
eNaaeee USING ADJEXPFM WHERE ACCT_NUM EQ .VEXPACCT 


WRITE "MAKING CORRECTION TO ACCOUNT" AT 10,20 
CLEAR VVENDNO 
CLEAR VASSTACT 
CLEAR VEXPACCT 
GOTO REQAGAIN 


LABEL AFTEREOM 

NEWPAGE 

WRITE "ENTER:" AT 5,10 

WRITE "1 - TO CORRECT PURCHASE MADE TO WRONG CREDITOR" AT 7,10 
WRITE "2 - TO CORRECT PURCHASE AMOUNT ENTRY ERROR" AT 9,10 
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WRITE "3 - BOTH THE PURCHASE AMOUNT & THE ACCOUNT CHARGED WERE WRONG! + 
AT 11,10 


WRITE "4 - QUIT ... RETURN TO FINANCIAL EDIT MENU" AT 13,10 
DRETE "CHOICE:" AT 1510 
BeLLIN YOURCH USING " i AT 15,20 
*(-- correction due to posting to the incorrect creditor account) 
IF YOURCH = 1 THEN 
NEWPAGE 
LABEL GETFIRST 
PELLIN Meee USING "PURCHASE CHARGED IN ERROR TO ACCOUNT NUMBER =-'' + 
A 


ne 
SET POINTER #1 STATUS1 FOR ACCT_PAY WHERE VENDNO EQ .VBADVEN 
Bees lALUS1 <> 0 THEN 
WRITE "NO SUCH CREDITOR'S ACCOUNT" AT 15,20 
Bae "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER" AT io 5 
AUSE 
CLEAR VBADVEN 
GOTO GETFIRST 
ENDIF 
SET VARIABLE NAME] TO VNF:NAME IN #1 
SET VARIABLE NAME2 TO VEN:MI IN #1 
SET VARIABLE NAME3 TO .NAME1] & .NAMEZ2 
SET VARIABLE NAME4 TO VNL:NAME IN #1 
SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #1 
SET VARIABLE VCITY TO CITY IN #1 
SET VARIABLE VSTATE TO STATE IN #1 
Sues VARLABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 
Peers, PURCHASE CHARGED IN ERROR TO:" AT 15,10 
WRITE .VFULLNAM AT 15,40 
WRITE .VSTREET AT 16,40 
WRITE .VADDR AT 17,40 
Helte .VZIP AT 16, 40 
WRITE "IS THIS THE ACCOUNT INCORRECTLY CHARGED? (Y/N)"" AT 20,20 


FILLIN YOURANS USING " " AT 20,70 
IF YOURANS = N THEN 
NEWPAGE 


CLEAR VBADVEN 
GOTO GEIFIRST 
ENDIF 
NEWPAGE 
LABEL GETSECOND 
sea mas. USING "PURCHASE SHOULD HAVE BEEN CHARGED ACCOUNT -'"' + 


aes 1 
SET POINTER #2 STATUS2 FOR ACCT _PAY WHERE VENDNO EQ .VCORVEN 
PeeolalUs2 <> O THEN 
Petre 'NO SUCH CREDITOR'S AGGOUNT" “AT 15,20 
WRITE "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER TO BE PAID" + 
mea 15,10 
PAUSE 
NEWPAGE 
CLEAR VCORVEN 
GOTO GETSECOND 
ENDIF 
SET VARIABLE NAME] TO VNF:NAME IN #2 
SET VARIABLE NAME2 TO VEN:MI IN #2 
SET VARIABLE NAME3 TO .NAME1] & .NAMEZ2Z 
SET VARIABLE NAME4 TO VNL:NAME IN #2 
SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #2 
SET VARIABLE VCITY TO CITY IN #2 
SET VARIABLE VSTATE TO STATE IN #2 
SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #2 
PRLIE "CHARGE PURCHASE TO:" AT 5,10 
WRITE .VFULLNAM AT 5,40 
WRITE .VSTREET AT 6,40 
WRITE .VADDR AT 7,40 


A) 


WRITE .VZIP AT 8,40 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE CHARGED? (Y/N)"" AT 9,15 
FILLIN YOURANS USING " " AT 9,70 
IF YOURANS = N THEN 
NEWPAGE 
CLEAR VCORVEN 
GOTO GET SECOMS 


ENDIF 

FILLIN VAMT USING "AMOUNT OF PURCHASE WES ges! Zed) 

FILLIN VINVNO USING “INVOICE NUMBER VOPR PURCHASHEVHWSS =) 9 eel sia 
FILLIN VDATE USING "DATE OF PURCHASE WAS - " AT 16,10 

FILLIN VPRODUCT USING “ITEM PURCHASEDMWAS = ee eee, 10 


SET VARIABLE VTX:DATE TO .#DATE 

SET VARIABLE VDESCRP TO “PURCHASE CORRECTION 

SET VARIABLE VCK:NO TO "Q" 

LOAD AP_CHG *(--show correct charge to account ) 
2 ~VCORVEN .VPRODUCT .VDATE .VAMT .VINVNO 

ND 


LOAD AP_PAID *(-- correct for incorrect charge to account ) 
. ~VBADVEN .VTA:DATE .VAMT .VCK:NO 
END 


CLEAR VCORVEN 
CLEAR VBADVEN 
CLEAR VINVNO 
CLEAR VDATE 
CLEAR VAMT 
CLEAR VPRODUCT 
GOTO REQAGAIN 
ENDIF *(--end of correction due to incorrect charge to wrong account) 


*(-- corrections due to posting incorrect purchase amount ) 
IF YOURCH = 2 THEN 
NEWPAGE 
LABEL GETACCT 
oe eS USING "PURCHASE POSTED IN ERROR TO ACCOUNT NUMBER -" + 


ee Syed 
SET POINTER #1 STATUS1 FOR ACCT_PAY WHERE VENDNO EQ .VVENDNO 
TR olATUSiy <>. 0 THEN 
WRITE "NO SUCH CREDITOR'S ACCOUNT" AT 15,20 
ee "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER" AT 16,15 
AUS 
NEWPAGE 
CLEAR VVENDNO 
GOTO GETACCT 
ENDIF 
SET VARIABLE NAME1 TO VNF:NAME IN #1 
SET VARIABLE NAME2 TO VEN:MI IN #1 
SET VARIABLE NAME3 TO .NAME1 & .NAMEZ 
SET VARIABLE NAME4 TO VNL:NAME IN #1 
SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #1 
SET VARIABLE VCITY TO CITY IN #1 
SET VARIABLE VSTATE TO STATE IN #1 
SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 
WRITE "ACCOUNT TO BE ADJUSTED I5:" AT 7,10 
WRITE .VFULLNAM AT 7,35 
WRITE. Voln@e le A oes 
WRITE .VADDR AT 9,35 
WRIETEe Cle a elo 35 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE ADJUSTED? (Y¥/N)" AT 11,20 


FILEIN,  YOURANS USING ©" [alee 
IF YOURANS = N THEN 
NEWPAGE 


CLEAR VVENDNO 
GOTO °GEPACeT 

ENDIF 

FILLIN eye USING "PURCHASE AMOUNT ENTERED IN ERROR WAS - " + 
AT ; 
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BoLigg Vall USING "CORRECT PURCHASE AMOUNT TO"BE*POSTED IS - " + 


me 1510 
FILLIN VINVNO USING "INVOICE NUMBER OF PURCHASE WAS - " AT 17,10 
FILLIN oa USING "EXPENSE ACCOUNT NUMBER EFFECTED WAS - " + 
Br 1l9,1 
FILLIN ean USinG "ASSET ACCOUNT NUMBER EFFECTED WAS - " + 
BW gy, 1 


SET VARIABLE VTX:DATE TO .#DATE 

SET VARIABLE VDESCRP TO "PURCHASE CORRECTION" 

SET VARIABLE VCK:NO TO ''0Q"! 

LOAD AP_PAID *(-- corrective payment EGuzero incorrect charde } 
»~VVENDNO .VTX:DATE .VBADAM VCK :NO 

END 


LOAD AP_CHG *(-- show correct charge to account) 
; ~VVENDNO .VDESCRP .VTXA:DATE .VAMT .VINVNO 
EN 


ieee vEXPACCT EXISTS THEN 
LOAD EXPENSE *(-- corrective minus of incorrect charge amount) 
SVeeracCl .VDESCRP .VBADAMT .VTX:DATE M 
END 
LOAD EXPENSE *(-- post correct increase in expense ) 
PVesbacel .VDESCKRIP .VAMT .VIA:DATE P 
END 


ENDIF 
ME VASSTACT EXISTS THEN 
LOAD BAL_JOUR *(-- corrective minus of incorrect charge amount) 
: .VASSTACT .VDESCRP .VBADAMT .VTX:DATE M 
EN 


LOAD BAL_JOUR *(-- correct increase inventory amount ) 
5 »VASSTACT .VDESCRP .VAMT .VTX:DATE P 
EN 


ENDIF 
CLEAR VVENDNO 
CLEAR VBADAMT 
CLEAR VAMT 
CLEAR VINVNO 
GCEeak EXPACCT 
GREAR ASSTACT 
GOTO REQAGAIN 
ENDIF *(-- end of corrections due to incorrect purchase amount entry) 


*( --corrections due to incorrect purchase amt and posting to wrg acct) 
IF YOURCH = 3 THEN 

NEWPAGE 

LABEL ACCT1 

seeclN SiGe USING"PURCHASE CHARGED IN ERROR TO ACCOUNT NUMBER -" + 


a 
SET POINTER #1 STATUS1 FOR ACCT _PAY WHERE VENDNO EQ .VBADVEN 
HF STATUS <> 0 THEN 
Helle VNGsSSUGH GREDITOR'S ACCOUNT" AT 15,20 
wae "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER" AT 16,25 
NEWPAGE 
CLEAR VBADVEN 
GOTO ACCT1 
ENDIF 
SET VARIABLE NAME1 TO VNF:NAME IN #1 
SET VARIABLE NAME2 TO VEN:MI IN #1 
SET VARIABLE NAME3 TO .NAME1 & .NAMEZ 
SET VARIABLE NAME4 TO VNL:NAME IN #1 
SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #1 
pen VARIABLE VCITY TO CITy IN #1 
SET VARIABLE VSTATE TO STATE IN #1 
Sea VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 
WRITE "PURCHASE CHARGED IN ERROR TO:" AT 15,5 
WRITE .VFULLNAM AT 15,40 
WRITE .VSTREET AT 16,40 
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WRITE .VADDR AT 17,40 
WRITE .VZIP VAT foe, 40 
WRITE "IS THIS THE ACCOUNT INCORRETLY CHARGED?(Y/N)" AT 20,15 
FILLIN YOURANS USING " " AT 20,70 
IF YOURANS = N THEN 
NEWPAGE 
CLEAR VBADVEN 
GOTO ACCT1 
ENDIF 
NEWPAGE 
LABEL ACCT2 
FILLIN ce USING "PURCHASE SHOULD HAVE BEEN CHARGED ACCOUNT =. 


Ao 
SET POINTER #2 STATUS2 FOR ACCT_PAY WHERE VENDNO EQ .VCORVEN 
IF STATUSZ <> Osteen 
WRITE “NO SUCH CREDITOR Ss SCCOUN Tir et tone 
WRITE "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER TO BE PAD ae 
AT 16,10 
PAUSE 
CLEAR VCORVEN 
GOTO ACCT2 
ENDIF 
SET VARIABLE NAME1 TO VNF:NAME IN #2 
SET VARIABLE NAME2 TO VEN:MI IN #2 
SET VARIABLE NAME3 TO .NAME1 & .NAMEZ2 
SET VARIABLE NAME4 TO VNL:NAME IN #2 
SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRI IN #2 
SET VARIABLE VCITY TO CITY IN #2 
SET VARIABLE VSTATE TO STATE IN #2 
SET VARIABLE VADDR TO .VCTIY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #2 
WRITE "CHARGE PURCHASE TO:" AT 5,10 
WRITE .VFULLNAM AT 5,40 
WRITE .VSTREET AT 6,40 
WRITE .VADDR AT 7,40 
Win FE Ser Ar oor, 40 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE CHARGED? (Y/N)" AT 9,15 


FILEINSYOURSNS UStiie "Seat (2736 
IF YOURANS = N THEN 
NEWPAGE 
CLEAR VCORVEN 
GOTO ACCT2 
ENDIF 
SNe ee USING "PURCHASE AMOUNT ENTERED IN ERROR WAS - " + 
Lalli 
FILLIN VAMT USING "THE CORRECT PURCHASE AMOUNT Is - “ Aleis7ae 
FILLIN VINVNO USING "PURCHASE INVOICE NUMBER WAS - " AT 15,10 
FILLIN VDATE USING "DATE OF PURCHASE WAS - " AT 17,10 
FILLIN VPRODUCT USING "ITEM PURCHASED WAS - ' AT 19, 10 
BAe aon USING "EXPENSE ACCOUNT NUMBER EFFECTED WAS - " + 
Eee Dear 8 USING “ASSET ACCOUNT NUMBER EFFECTED WAS = ™ + 


SEL VARIABLE VCKENO. Too) 

SET VARIABLE VTX:DATE TO .#DATE 

SET VARIABLE VDESCRP TO "PURCHASE CORRECTION" 

LOAD AP_PAID *(-- corrective paymene to zero incorrect charge) 
ae ~VBADVEN .VTX:DATE .VBADAM VCK:NO 


LOAD AP_CHG *(-- show correct purchase amount and creditor ) 
aun -VCORVEN .VPRODUCT .VDATE .VAMT .VINVNO 
N 


IE VEXPACGT Extsls. Tab 
LOAD EXPENSE *(--corrective minus of incorrect amount ) 
a ~VDESCRP .VBADAMT .VTX:DATE M 
EN 
LOAD EXPENSE *(-- post correct increase to expense account ) 
~VEXPACCT .VDESCRP .VAMT .VTX:DATE P 
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END 
ENDIF 
IF VASSTACT EXISTS THEN | | | | 
LOAD BAL_JOUR *(--corrective minus of incorrect incr to asset) 
~VASSTACT .VDESCRP .VBADAMT .VTX:DATE M 
END 
LOAD BAL_JOUR *(-- show correct increase to inventory account) 
~VASSTACT .VDESCRP .VAMT .VTX:DATE P 
END 
ENDIF 
CLEAR VCORVEN 
CLEAR VBADVEN 
CLEAR VBADAMT 
CLEAR VAMT 
CLEAR VINVNO 
CLEAR VDATE 
CLEAR VPRODUCT 
CLEAR VEXPACCT 
CLEAR VASSTACT 
GOTO REQAGAIN | | 
ENDIF *(-- end of corrections for incorrect purchase and ) 
*(-=- wrong account charged 
IF YOURCH = 4 THEN 
GOTO EDITEND 
ENDIF 


LABEL REQAGAIN 
NEWPAGE 
WRITE "DO YOU WISH TO EDIT ANOTHER CREDITOR'S ACCOUNT?(Y/N)" AT 5,10 
Meee 2OURANS USING " " AT 5,65 
IF YOURANS = Y THEN 
GOTO BEGINEDIT 
ENDIF 


LABEL EDITEND 

SET MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END OF EDIT_AP.CMD ) 


pee END 

BRE EOC HGGOGE GE kikikk kaddhindcd i ibiiiukkiddnndnbabibbibkikkaioik 

PROGRAM : BEDE). CHD 

AUTHOR: J. M. GRAHAM 

DATE: DEC 1986 VEG L <0 

DESCRIPTION: THIS MODULE ALLOWS EDITING OR DELETING OF PAYMENTS 
MADE TO AN ACCOUNTS PAYABLE ACCOUNT. MANAGER MUST 
HNDIGATE WHETHER THE ERROR WAS DISCOVERED PROIR TO 
OR AFTER THE END-OF-MONTH TRANSACTIONS HAVE BEEN 
PROCESSED. THE MODULE HANDLES THE TRANSACTIONS 
DEUSHEReNt iy BASED URON THE TIME OF ERROR DISCOVERY. 
THE MANAGER MUST KNOW THE ACCOUNTS PAYABLE ACCOUNT 
NUMBER AND PAYMENT DATA CONCERNING THE CORRECTION. 


TABLES USED: ACCT_PAY, AP_PAID, BAL_JOUR, AP_CHG 


PORMS USED: ADJAPDFM, ADJUSTFM (98) 
RAKRAAAKKAKAKK KAKA ARK ARK RK KKK KARR KARR REAR KKK AKA KARKKAK AK AAKAR ARERR ) 


SET MESSAGES OFF 
SEEN FLYCLUB 
SET ERROR MESSAGES OFF 


LABEL BEGINEDIT 


NEWPAGE 
WRITE "PROCESSING PAYMENT CORRECTIONS TO ACCOUNTS PAYABLE ACCOUNTS" + 
WRITE ''\----------------------- +--+ +--+ = 5-5-5 +--+ -- M+ 


WRITE "Corrections are handled differently if discovered prior to" + 
WRITE "or after the regular end-of-month billing." AT 7,5 
WRITE “ENTER=*! © Al vos 
WRITE cat ee HANDLE ERRORS DISCOVERED PRIOR TO END-OF-=MONTH BILLING" + 
WATE oe Ee HANDLE ERRORS DISCOVERED AFTER END-OF=MONTH BILLING" + 
WRITE "3 - EXIT WITHOUT AN UPDATE” AT 14,5 
WRITE SUGHOLCE: " AP 1675 
FILLIN| YOURCH USING "“S"" AT eiieers 
IF YOURCH = 1 THEN 
GOTO PROIREOM 
ENDIF 
IF YOURCH = 2 THEN 
GOTO AFTEREOM 
ENDIF 
IF YOURCH = 3 THEN 
GOTO EDITEND 
ENDIF 
LABEL PROIREOM 
NEWPAGE 
WRITE "YOU ARE ABOUT TO EDIT OR DELETE A PAYMENT TO AN ACCOUNT" AT 2,10 
WRITE "FOLLOW THE PROMPTS AT THE TOP OF YOUR EDIT SCREEN" AT 4,10 
WRITE "TO EFFECT THE EDIT/DELETION AS YOU DESIRE." AT 5,10 
WRITE T 6.10 AN EDIT IS MADE YOU MUST SAVE THE EDIT BY SELECTING" + 
A 
WRITE an Se aed THE 'CHANGE' OPTION AND PRESS THE ENTER KEY" + 
A ' 
LABEL GETNUM 
WRITE oe ora KNOW THE CREDITOR'S NUMBER PAYMENT WAS MADE TO" + 
FILLIN VVENDNO USING "CREDITOR'S ACCOUNT NUMBER IS - " AT 11,15 
FILLIN VCK:NO USING "PAID BY CHECK NUMBER (IF KNOWN) - " AT 13,15 
SET POINTER #1 STATUS1 FOR ACCT_PAY WHERE VENDNO EQ .VVENDNO 
IF STAPUSI <> 707 THEN 
WRITE "NO SUCH CREDITOR'S ACCOUNT" AT 15,20 
ee "PRESS ANY KEY TO REENTER THE CREDITOR'S NUMBER" AT loi 
US 
NEWPAGE 
CLEAR VVENDNO 
GOTO GETNUM 
ENDIF 
SET VARIABLE NAME1 TO VNF:NAME IN #1 
SET VARIABLE NAME2 TO VEN:MI IN #1 
SET VARIABLE NAME3 TO .NAME1L & .NAME2 
SET VARIABLE NAME4 TO VNL:NAME IN #1 
SET VARIABLE VFULNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #1 
SET VARTABLE VGPlly 10" Cliv sin al 
SET VARIABLE VSTATE TO STATE IN #1 
SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 
SET VARIABLE VCASH TO "1110" 
SET VARIABLE VWHAT TO "PD ON ACCT" & .VVENDNO 
WRITE "CREDITOR: " AT 15,20 
WRITE .VFULNAM AT 15,30 
WRITE .VSTREET AT 16,30 
WRITE .VADDR AT 17,30 
WRITE 209 Zio eo eo 30 
WRITE AT 20,20 


FILLIN YOURANS USING " " 
IF YOURANS 


"TS THIS THE AON aie Area TO BE ADJUSTED? (Y/N)" 


N THEN 
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NEWPAGE 


CLEAR VVENDNO 
GOTO GETNUM 


ENDIF 


evekK:NO EXITS THEN 


EDIT USING 
BDIT USING 


E 
Beet USING 
EDIT USING 


ELS 


ADJAPDFM WHERE VENDNO EQ .VVENDNO AND CHECK:NO ae ~VCK:NO 
ADJUSTFM WHERE ACCT_NUM EQ .VCASH AND WHAT EQ .VWHAT 


ADJAPDFM SORTED BY VENDNO WHERE VENDNO EQ .VVENDNO 
ADJUSTFM WHERE ACCT_NUM EQ .VCASH AND WHAT EQ .VWHAT 


ENDIF 

WRITE "MAKING 
CLEAR VVENDNO 
CLEAR VCK:NO 


GOTO REQAGAIN 
LABEL AFTEREOM 


CORRECTION TO ACCOUNT" AT 10,20 


NEWPAGE 

WRITE "ENTER:" AT 5,10 

ieee’ = TO CORRECT PAYMENT MADE TO WRONG CREDITOR" AT 7,10 

Peweeee 2 = TO CORRECT PAYMENT ENTRY ERROR'' AT 9,10 

Wreete 3 See THE PAYMENT AMOUNT AND THE ACCOUNT CREDITED WERE WRONG" 
AT ll, 

WRITE "4 = QUIT ... RETURN TO FINANCIAL EDIT MENU" AT 13,10 

meee CHOICE:" AT 15,10 


FILLIN YOURCH USING 
*(-- correction due 
IF YOURCH = 1 THEN 
NEWPAGE 
LABEL GETFIRST 
FILLIN io USING "PAYMENT POSTED IN ERROR TO ACCOUNT NUMBER -'! 


BLO, 
SET POINTER #1 STATUS1 FOR ACCT _PAY WHERE VENDNO EQ .VBADVEN 
EF STATUS] <> O THEN 


ui aT 15720 
to posting incorrect creditor account) 


WRITE "NO SUCH CREDITOR'S ACCOUNT" AT 15,20 
Se ae "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER" AT fo lS 


CLEAR VBADVEN 
Selo GETFIRST 


ENDIF 

SET VARIABLE NAME1 TO VNF:NAME IN #1 

SET VARIABLE NAME2 TO VEN:MI IN #1 

SET VARIABLE NAME3 TO .NAME1] & .NAMEZ2 
SET VARIABLE NAME4 TO VNL:NAME IN #1 

SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #1 
SET VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO STATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 

SET VARIABLE VZIP TO ZIPCODE IN #1 

WRITE "PAYMENT MADE IN ERRO TO:" AT 15,10 

WRITE .VFULLNAM AT 15,40 

WRITE .VSTREET AT 16,40 

WRITE .VADDR AT 17,40 

Peete .VZIP AT 18, 40 

oe "TS THIS THE ACCOUNT INCORRECTLY POSTED AS PAID? (Y¥/N)" + 


20,15 
FILLIN YOURANS USING " " AT Z07 OC 
IF YOURANS = N THEN 
NEW PAGE 


CLEAR VBADVEN 
GOTO GETFIRST 
ENDIF 
NEWPAGE 
LABEL GETSECOND 
FILLIN VCORVEN USING "PAYMENT SHOULD HAVE BEEN MADE TO ACCOUNT - 


Pleo 
SET POINTER #2 STATUS2 FOR ACCT_PAY WHERE VENDNO EQ .VCORVEN 
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LE STATUSZ <> _ 0 THEN 
WRITE "NO SUCH CREDITOR*S ACCOUNT™ a0 lomz0 
WRITE "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER TO BE PAID" + 
Boe 15710 
PAUSE 
NEWPAGE 
CLEAR VCORVEN 
GOTO GETSECOND 
ENDIF 
SET VARIABLE NAME1 TO VNF:NAME IN #2 
SET VARIABLE NAME2Z TO VEN:MI IN #2 
SET VARIABLE NAME3 TO .NAME1 & .NAME2 
SET VARIABLE NAME4 TO VNL:NAME IN #2 
SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #2 
SET VARIABLE VCITY TO CITY IN #2 
SET VARIABLE VSTATE TO STATE IN #2 
SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #2 
WRITE "PAYMENT TO BE MADE TO:" AT 5,10 
WRITE .VFULLNAM AT 5,40 
WRITE .VSTREET AT 6,40 
WRITE .VADDR AT 7,40 
WRITE .V2ZIP AT 8, 40 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE PAID?(Y/N)" AT 9,20 


FILLIN YOURANS USING " " AT 9,70 
IF YOURANS = N THEN 
NEWPAGE 


CLEAR VCORVEN 
GOTO GETSECOND 
ENDIF 
FILLIN VAMT USING “AMOUNT OF PAYMENT TO BE POSTED - " AT 12,10 
FILLIN VCK:NO USING "CHECK NUMBER OF PAYMENT -" AT 14,10 
FILLIN VDATE USING "DATE OF PAYMENT WAS - " AT 16,10 
SET VARIABLE VTX:DATE TO .#DATE 
SET VARIABLE VDESCRP TO "PAYMENT CORRECTION'! 
SET VARIABLE VINVNO TO "NONE" 
*(--show payment to incorrect account; charge amt to zero acct ) 
LOAD AP_CHG 
ee .VBADVEN .VDESCRP .VTX:DATE .VAMT .VINVNO 


LOAD AP_PAID ¥*(-- show paymenen to correct account ) 
a se ~-VDATE .VAMT 
N 
CLEAR VCORVEN 
CLEAR VBADVEN 
CLEAR VAMT 
CLEAR VCK:NO 
CLEAR VDATE 
GOTO REQAGAIN 
ENDIF *(-- end of correction due to payment to wrong account ) 


*(-- corrections due to posting incorrect payment amount ) 
IF YOURCH = 2 THEN 
NEWPAGE 
LABEL GETACCT 
ae caion a USING "PAYMENT AMOUNT IN ERROR IN ACCOUNT NUMBER -" + 
E 
SET POINTER #1 STATUS1 FOR ACCT_PAY WHERE VENDNO EQ .VVENDNO 
IF STATUS <> O THEN 
WRITE "NO SUCH CREDITOR'S ACCOUNT" AT 15,20 
WRITE "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER" AT 16,15 
PAUSE 
NEWPAGE 
CLEAR VVENDNO 
GOTO GETACCT 
ENDIF 
SET VARIABLE NAME1 TO VNF:NAME IN #1 
SET VARIABLE NAME2 TO VEN:MI IN #1 
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Si VARIABLE NAME3 TO .NAME1],& .NAMEZ2 

SET VARIABLE NAME4 TO VNL:NAME IN #1 

SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #1 

SET VARIABLE VCITY TO CITY IN #1 

SET VARIABLE VSTATE TO STATE IN #1 

SET VARIABLE VADDR TO .VCITY & .VSTATE 

SET VARIABLE VZIP TO ZIPCODE IN #1 

meee “ACCOUNT TO BE ADJUSTED IS:" AT 7,10 
WRITE .VFULLNAM AT 7,35 

WELIE .VSTREET AT 8,35 

WRITE .VADDR AT 9,35 

Pelle .2IP AT 10, 35 

WRITE "IS THIS THE CORRECT ACCOUNT TO BE ADJIUSMEB acy /N) ieee 11, 20 


FILLIN YOURANS USING "= " AT 11,70 
IF YOURANS = N THEN 
NEWPAGE 


CLEAR VVENDNO 
GOTO GETACCT 


ENDIF 

eis to USING "PAYMENT AMOUNT ENTERED IN ERROR WAS - " + 
A ’ 

BeGLiN VAMT USING ''CORRECT PAYMENT TO BE POSTED IS - " AT 15,10 

mPeerN VCK:NO USING “PAYMENT MADE BY CHECK NUMBER - " AT 17,10 


SET VARIABLE VTX:DATE TO .#DATE 

SET VARIABLE VDESCRP TO "PD COR" & .VVENDNO 

SET VARIABLE VDESCRP1 TO "PAYMENT CORRECTION" 

SET VARIABLE VDESCRP2 TO "PD ON ACCT" & .VVENDNO 

Se) VARIABLE VCASH TO "1110" 

SET VARIABLE VINVNO TO "NONE" 

LOAD BAL_JOUR *(-- cash accounted credited for error payment amount) 
a .VCASH .VDESCRP .VBADAMT .VTX:DATE P 


LOAD BAL_JOUR *(-- show correct cash amount of payment) 
. .VCASH .VESCRP2 .VAMT .VTX:DATE M 
ND 


LOAD AP_CHG *(-- corrective charge to zero incorrect payment entry) 
.VVENDNO .VDESCRP1 .VTX:DATE ‘VBADAMT .VINVNO 

END 

LOAD AP_PAID ¥*(-- post correct pave ne to creditor ) 
ONO ~VTX:DATE .VAMT .VCK:N 

EN 

CLEAR VBADAMT 

CLEAR VAMT 

CLEAR VCK:NO 

CLEAR VVENDNO 

GOTO REQAGAIN 


ENDIF *(-- end of corrections due to incorrect payment amount entry) 
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ie . corrections due to incorrect payment amount ) 
and posting to wrong account ) 
YOURCH = 3 THEN 
NEWPAGE 
LABEL ACCTI1 
eG USING “PAYMENT POSTED IN ERROR TO ACCOUNT NUMBER -" + 
SET POINTER #1 STATUS1 FOR ACCT _PAY WHERE VENDNO EQ .VBADVEN 
Ceol twol <> 0 THEN 
WRITE "NO SUCH CREDITOR'S ACCOUNT" AT 15,20 
Nee "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER" AT 56.25 
NEWPAGE 
CLEAR VBADVEN 
GOTO ACCTI1 
ENDIF 
SET VARIABLE NAME1 TO VNF:NAME IN #1 
SET VARIABLE NAME2 TO VEN:MI IN #1 
SET VARIABLE NAME3 TO .NAME1 & .NAME2 
SET VARIABLE NAME4 TO VNL:NAME IN #1 
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SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #1 
SET VARIABLE VCITY TO CITY IN #1 
SET VARIABLE VSTATE TO STATE IN #1 
SET VARIABLE VADDR TO .VCITY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #1 
WRITE "PAYMENT MADE IN ERROR TO:" AT 15,10 
WRITE .VFULLNAM AT 15,40 
WRITE .VSTREET AT 16,40 
WRITE .VADDR AT 17,40 
WRITE” -VZLe- ak oe, 40 
WRITE "IS THIS THE ACCOUNT INCORRETLY PAID?(Y/N)" AT 20,20 
FILLIN YOURANS USING " " AT 20,70 
IF YOURANS = N THEN 
NEWPAGE 
CLEAR VBADVEN 
GOTO ACCT1 
ENDIF 
NEWPAGE 
LABEL ACCT2 
FILLIN ao USING "PAYMENT SHOULD HAVE BEEN MADE TO ACCOUNT -"' + 
AT J 
SET POINTER #2 STATUS2 FOR ACCT _PAY WHERE VENDNO EQ .VCORVEN 
IF STATUS2 <> 0 THEN 
WRITE "NO SUCH CREDITOR'S ACCOUNT" AT 15,20 
WRITE "PRESS ANY KEY TO REENTER CREDITOR'S NUMBER TO BE PAID" + 
Ate, 10 
PAUSE 
CLEAR VCORVEN 
GOTO ACCT2 
ENDIF 
SET VARIABLE NAME1 TO VNF:NAME IN #2 
SET VARIABLE NAME2 TO VEN:MI IN #2 
SET VARIABLE NAME3 TO .NAME1l & .NAME2 
SET VARIABLE NAME4 TO VNL:NAME IN #2 
SET VARIABLE VFULLNAM TO .NAME3 & .NAME4 
SET VARIABLE VSTREET TO VEN_STRT IN #2 
SET VARIABLE VCITY TO CITY IN #2 
SET VARIABLE VSTATE TO STATE IN #2 
SET VARIABLE VADDR TO .VCTIY & .VSTATE 
SET VARIABLE VZIP TO ZIPCODE IN #2 
WRITE “PAYMENT 10 BE MADE 10: 7Al 5,70 
WRITE .VFULLNAM AT 5,40 
WRITE .VSTREET AT 6,40 
WRITE .VADDR AT 7,40 
WREEE Zlib eat 3, 40 
WRITE "IS THIS THE CORRECT ACCOUNT TO BE PAID?(Y/N)" AT 9,20 


FIEEIN YOURANS@USaNG " " Are, 70 
IF YOURANS = N THEN 
NEWPAGE 
CLEAR VCORVEN 
GOTO ACCT2 
ENDIF 
FILLIN gers USING "PAYMENT AMOUNT ENTERED IN ERROR WAS - " + 
aie 
FILLIN VAMT USING "THE CORRECT PAYMENT AMOUNT IS - " AT 13,10 
FILLIN VCK:NO USING "PAYMENT MADE BY CHECK NUMBER - " AT 15,10 
FILLIN VDATE USING "DATE OF PAYMENT WAS - " AT 17,10 


SET VARIABLE VINVNO TO "NONE"! 

SET VARIABLE VTX:DATE TO .#DATE 

SET VARIABLE VDESCRP TO "PAYMENT CORRECTION" 

SET VARIABLE VDESCRP1 TO "PD COR" & .VBADVEN 

SET VARIABLE VDESCRP2 TO "PD ON ACCT" & .VCORVEN 

SET VARIABLE VCASH TO "1110" 

LOAD BAL_JOUR *(-- cash account credited for error payment amount) 
ann ~VCASH .VDESCRP1 .VBADAMT .VTX:DATE P 


LOAD BAL_JOUR *(-- show correct cash amount paid creditor ) 
»~VCASH .VDESCRP2 .VAMT .VDATE M 
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END 

LOAD AP_CHG *(--corrective charge to zero incorrect payment entry ) 
»~VBADVEN .VDESCRP .VTX:DATE .VBADAMT .VINVNO 

END 

LOAD AP_PAID *(-- post correct payment to correct account ) 
.VCORVEN .VDATE .VAMT .VCK:NO 

END 


CLEAR VCORVEN 

CLEAR VBADVEN 

CLEAR VBADAMT 

CLEAR VAMT 

CLEAR VCK:NO 

CLEAR VDATE 

GOTO REQAGAIN 

ENDIF man end of corrections due to incorrect payment ) 
and wrong account paid ) 


IF YOURCH = 4 THEN 
GOTO EDITEND 


ENDIF 

LABEL REQAGAIN 

NEWPAGE 

WRITE "DO YOU WISH TO EDIT ANOTHER CREDITOR'S ACCOUNT?(Y/N)" AT 5,10 
FILLIN YOURANS USING " " AT 5,70 


IF YOURANS = Y THEN 
Soro BEGINEDIT 
ENDIF 


LABEL EDITEND 

Sa MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

ae-eEND OF EDIT_PD.CMD ) 


$ COMMAND 

REV_EDIT 

* ( KRARAERKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAKKKKKKKKKKKKKKKKKKKKKKKKKAKK 

PROGRAM: REV_EDIT.CMD 

AUTHOR: J. M. GRAHAM 

DATE: DEC 1986 

DESCRIPTION: THIS MODULE ALLOWS THE MANAGER TO MAKE COMPENSATING 
ENTRIES TO ANY REVENUE ACCOUNT. THE MANAGER MUST KNOW 
THE REVENUE ACCOUNT NUMBER TO MAKE THE CORRECTIVE ENTRY. 
THE MODULE WILL ASK IF THE ENTRY IS A PLUS OR MINUS 
TRANSACTION AND THE AMOUNT. 


TABLES USED: EARNINGS, INCOME 


PORMS USED: ADJINCFM, ADDEARFM (1 2) 
AAKKAAKAKAKRAAKKKAAAKKAKKAKAAKAKAKAAAAAKARAAKARKAAAKKRAAKKRAAAKKKRAKK xz ) 


ee MESSAGES OFF 
OPEN FLYCLUB 
SeteERROR MESSAGES OFF 


LABEL REV_MENU 


NEWPAGE 
WRITE "INCOME STATEMENT ACCOUNT ADJUSTMENTS" AT 5,20 
Ee 2 eo eee ooo ee eee ee ee eee " AT 6,20 


hatte “ENTER:" AT 8,5 
Meo cS ENTER A NEW REVENUE ACCOUNT TO THE INCOME STATEMENT" + 
WeLleE 'Z - TO MAKE A REVENUE ACCOUNT ADJUSTMENT" AT 10,5 
Meerle '3 = TO EXIT WITHOUT AN UPDATE" AT 11,5 
merece, "YOUR CHOICE:" AT 13,5 
MeLLEN YRCHOICE USING “ " AT 13,18 
me <RCHOICE = 1 THEN 
GOTO ADDACCT 
ENDIF 
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IF YREHOLGE = e200 HEn 
GOTO ADJACCT 

END ES 

IF YRCHOICE = 3 THEN 
GOTO REV_END 

ENDIF 


*(* Module to add a new asset account to the balance sheet ) 
LABEL ADDACCT 

NEWPAGE 

ENTER ADDEARFM 

GOTO REVAGAIN 


x(x Draws entry form for account adjustments ) 
LABEL ADJACCT 
ENTER ADJINCFM 


x(x Boop pbovs aang for multiple entries w/o leaving module ) 


LABEL R GAIN 

NEWP 

WRITE "DO YOU DESIRE TO MAKE Sea REVENUE ACCOUNT ENTRY?" AT 8,5 
WRITE "( YES (OR NO.) fea De W AT, 107,20 

FILLIN YOURANS USING " " AT 10 45" 


IF YOURANS = Y THEN 
GOTO REV_MENU 
ENDEE 


*(* Return control to calling module ) 

LABEL REV_END 

SET MESSAGES ON 

SET ERROR MESSAGES ON 

RETURN *(-- return call to the manager's adjustment menu ) 
*( END OF REV_EDIT.CMD) 


$ COMMAND 

EXP_EDIT 

* ( KAEKAKKRKEKRRKRRKARRKARKRKEKRRRKRRRARRRKERERRRRKRRRRRRRRRRRRRKRRRRKRRRERKRRRRERRRK 

PROGRAM: EXP_EDIT.CMD 

AUTHOR : J. M. GRAHAM 

DATE: DEC 1986 

DESCRIPTION: THIS MODULE ALLOWS THE MANAGER TO MAKE COMPENSATING 
ENTRIES TO ANY EXPENSE ACCOUNT. THE MANAGER MUST KNOW 
THE EXPENSE ACCOUNT NUMBER TO MAKE THE CORRECTIVE ENTRY. 
THE MODULE WILL ASK IF THE ENTRY IS A PLUS OR MINUS 
TRANSACTION AND THE AMOUNT. 


TABLES USED: EARNINGS, EXPENSE 


FORMS USED: ADJEXPFM, ADDEARFM (1 7) 
AAR AKAKKARAKKKRARKKAKKERKKARKRAKKAKKRERARKRK ARE RERRRRERARARERER RR xx ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


LABEL EXP_MENU 


NEWPAGE 
WRITE "INCOME STATEMENT ACCOUNT ADJUSTMENTS © ae oo20 
WRITE tleseco ceo co 5 See ee eee T°6,20 


WRITE "ENTER: AT 8,5 
WRITE Cees ENTER A NEW EXPENSE ACCOUNT TO THE INCOME STATEMENT” + 
T 9, 
WRITE "2 - TO MAKE A EXPENSE ACCOUNT ADJUSTMENT" AT 10,5 
WRITE "3 =- TO EXIT WITHOUT AN UPDATE" AT 11,5 
WRITE “YOUR: CHOVER nt rors 
FILLING VReHOTeE US thG sen bee lo 
IF YRCHOICE = 1 THEN 
GOTO ADDACCT 
ENDIF 
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IF YRCHOICE = 2 THEN 
GOTO ADJACCT 

ENDIF 

IF YRCHOICE = 3 THEN 
GOTO EXP_END 

ENDIF 


*(* Module to add a new asset account to the balance sheet ) 
LABEL ADDACCT 

NEWPAGE 

ENTER ADDEARFM 

GOTO EXPAGAIN 


*(* Draws entry form for account adjustments ) 
LABEL ADJACCT 
ENTER ADJEXPFM 


x(% pceeuicyecing for multiple entries w/o leaving module ) 


LABEL EB GAIN 

WPA 

WRITE "DO YOU DESIRE TO MAKE ANOTHER EXPENSE ACCOUNT ENTRY?" AT 8,5 
WRITE "( YES OR NO ) - - Ce Pot 210,20 

FILLIN YOURANS USING " " AT 10,45 


IF YOURANS = Y THEN 
GOTO EXP_MENU 
ENDIF 


*(* Return control to calling module ) 

LABEL EXP_END 

SET MESSAGES ON 

SET ERROR MESSAGES ON 

RETURN *(-- return call to the manager's adjustment menu ) 

*( END OF EXP_EDIT.CMD) 

gece ND 

GEE TEC CS SOCIO R ICRC TIT C III RII ITI RII TIT RR ISI I IT IRI I RI 

PROGRAM: ASSTEDIT.CMD 

AUTHOR: J. M. GRAHAM 

DATE: DEC 1986 

DESCRIPTION: THIS MODULE ALLOWS THE MANAGER TO MAKE COMPENSATING 
ENTRIES TO ANY ASSET ACCOUNT. THE MANAGER MUST KNOW 
THE ASSET ACCOUNT NUMBER TO MAKE THE CORRECTIVE ENTRY. 
THE MODULE WILL ASK IF THE ENTRY IS A PLUS OR MINUS 
TRANSACTION AND THE AMOUNT. 


TABLES USED: BAL_SHET, BAL_JOUR 


FORMS USED: ADJUSTFM, ADDBALFM (1 7) 
PRRRKAARRAKKKRRRRRRRARARRAKAARARARRAAKAKAKKRRARKARARAAARRRRARRERA xk) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SEE ERROR MESSAGES OFF 


LABEL ASSTMENU 


NEWPAGE 
WRITE BALANCE SHEET ASSET ACCOUNT ADJUSTMENTS" neo ,.20 
Mme Wee See ee ae Oo SoS Re eek AT 6.20 


? 


WRITE "ENTER 7 Seer oe 
WRITE "1 - TO ENTER A NEW ASSET ACCOUNT TO THE BALANCE SHEET" AT oS 
WRITE "2 - TO MAKE AN ASSET ACCOUNT ADJUSTMENT" AT 10,5 
meee "3 = TO EXIT WITHOUT AN UPDATE" AT 11,5 
Belle "YOUR CHOICE:" AT 13,5 
FILLIN YRCHOICE USING " " AT T3713 
me YRCHOICE = 1 THEN 
GOTO ADDACCT 
ENDIF 
mee YRCHOICE = 2 THEN 
GOTO ADJACCT 
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ENDIF 

IF YRGEHOICE =—3. THEN 
GOTO ASSTEND 

ENDIF 


*(* Module to add a new asset account to the balance sheet ) 
LABEL ADDACCT 

NEWPAGE 

ENTER ADDBALFM 

GOTO ASTAGAIN 


*(* Draws entry form for account adjustments ) 
LABEL ADJACCT 
ENTER ADJUSTFM 


K(X Eas pas pueoing for multiple entries w/o leaving module ) 
ed ASTAGA 


NEWPA 

WRITE "DO YOU DESIRE TO MAKE ANOTHER ASSET ACCOUNT ENTRY?" AT 8,5 
White ( YES) OR NO) = = (Y/N): At a1G 26 

FILLIN YOURANS USING " " AT 10,45 


IF YOURANS = Y THEN 
GOTO ASSTMENU 
ELSE 
GOTO ASSTEND 
ENDIF 


*x(* Return control to calling module ) 

LABEL ASSTEND 

SET MESSAGES ON 

SET ERROR MESSAGES ON 

RETURN *(-- return call to the manager's adjustment menu ) 
*( END OF ASSTEDIT.CMD) 


S COMMAND 

LIABEDIT 

K ( KARRAAAKKARKARKAAKKK RAR AKKK RARE RK AKKK RK RERAKK RK RRR AAA ARK AKAKK 
PROGRAN : LIABEDIT.CMD 

AUTHOR: J. M. GRAHAM 


DATE : DEC 1986 

DESCRIPTION: THIS MODULE ALLOWS THE MANAGER TO MAKE COMPENSATING 
ENTRIES TO ANY LIABILITY ACCOUNT. THE MANAGER MUST KNOW 
THE ACCOUNT NUMBER TO MAKE THE CORRECTIVE ENTRY. 
THE MODULE WILL ASK IF THE ENTRY IS A PLUS OR MINUS 
TRANSACTION AND THE AMOUNT. 


TABLES USED: BAL_SHET, BAL_JOUR 


FORMS USED: ADJUSTEM, ADDBALFM (1 7) 
SOTO I ToT ORR TORR RRR RT RTT RT RRR II AAK KX ) 


SED MESSaGh oe OFF 
OPEN FLYCLUB 
SEI PERROR MESSSGES OFF 


LABEL LIABMENU 


NEWPAGE 
WRITE | BALANCE SHEET LIABILITY ACCOUNT ADJUSTMENTS" AL S325 
WRITE "een weemew wes ewee we wee eesee ees eas seecescesan AT 6,15 


WRITE ENTER: Hl Pea 7S 
WRITE ae as ee ENTER A NEW LIABILITY ACCOUNT TO THE BALANCE SHEET" + 
WRITE "2 - TO MAKE AN LIABILITY ACCOUNT ADJUSTMENT" AT 10,5 
WRITE “3 © TO EXIT WITHOUT AN URDATE Ane 
WRETE “YOUR -GHOLGE Aro hoes 
FILLIN VRCHOLCE USING Sea relse lc 
TE YREROPER = la labh 
GOTO ADDACCT 
ENDIF 
IF YRECHOLGE = 2 THEN 
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GOTO ADJACCT 
BIIDIF 
IF YRCHOICE = 3 THEN 
GOTO LIABEND 
ENDIF 


*(* Module to add a new asset account to the balance sheet ) 
LABEL ADDACCT 

NEWPAGE 

ENTER ADDBALFM 

GOTO LIBAGAIN 


*(* Draws entry form for account adjustments ) 
LABEL ADJACCT 
ENTER ADJUSTFM 


=i LOO pe ovading for multiple entries w/o leaving module ) 
Papen LIBAG 


NEWPAGE 

WRITE "DO oumUrolRE IO MAKE ANOTHER ASSET ACCOUNT ENTRY?" AT 8,5 
Were ( YES OR NO ) - - (Y/N):" AT 10,20 

FILLIN YOURANS USING " " AT 10,45 


IF YOURANS = Y THEN 
GOTO LIABMENU 


ELSE 
GOTO LIABEND 
NDIF 


*(* Return control to calling module ) 

LABEL LIABEND 

SET MESSAGES ON 

SET ERROR MESSAGES ON 

RETURN *(-- return call to the manager's adjustment menu ) 
*( END OF LIABEDIT.CMD) 
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APPENDIX G 
CLUB_PRT SOURCE CODE 


KAKKKKKKAKKKKRAKAKKKRKKKKKKKKKAAKAKKAAKKKRKAKRKAKARRKAAAKRRRKAAAKRRKKK 
MONTEREY NAVY FLYING CLUB 
MANAGEMENT INFORMATION SYSTEM 
PROTOTYPE VERSION 220 


PRINTING APPLICATION 


LCDR. JAMES M. GRAHAM, USN 


fs JANUARY 1987 (07) = 
KARAKKAAKKKKAKRKKKAAAKKKAKKKKKERKRAKAKERERAKEKKAKAKAAKRKKKKKRAAKAKRARRARE | 


* 
* 
* 
* 
* 
* 
* 
* 


Ob Ob OR OF 
Hob A FOF 


* 


SCOMMAND 
CLUB_PRT 
SET MESSAGE OFF 
OPEN FLYCLUB 
SET ERROR MESSAGE OFF 
SET VAR PICK1 INT 
LABEL STARTAPP 
NEWPAGE 
CHOOSE PICK1 FROM MAIN IN CLUB_PRT.APX 
IF PICK1 EQ 0 THEN 
GOTO ENDAPP 
ENDIF 
IF PICK1l E£ 1 THEN 
SET VAR PICK2 INT 
SET VAR LEVEL2 INT 
SET VAR LEVEL2 TO 0 
WHILE LEVEL2 EQ 0 THEN 
NEWPAGE 
CHOOSE PICK2 FROM ADMINPRT IN CLUB_PRT.APX 
IF PICK2 EQ 0 THEN 


BREAK 
ENDIF 
IF PICK2 EQ 1 THEN 
RUN ROSTER IN CLUB_PRT.APX 
ENDIF 
IF PICK2 EQ 2 THEN 
RUN MGR_PRT IN CLUB_PRT.APX 
ENDIF 
IF PICK2 E 3 THEN 
RUN ACSTA IN CLUB_PRT.APX 
ENDIF 
IF PICK2 EQ 4 THEN 
BREAK 
ENDIF 
ENDWHILE 


CLEAR LEVEL2 
CLEAR PICK2 
GOTO STARTAPP 
ENDIF 
IF PICKl E 2 THEN 
SET VAR PICK2 INT 
SET VAR LEVEL2 INT 
SET VAR LEVEL2 TO 0 
WHILE LEVEL2 EQ 0 THEN 
NEWPAGE 
CHOOSE PICK2 FROM FINPRT IN CLUB_PRT.APX 
IF PICK2 EQ 0 THEN 
BREAK 
ENDIF 
IF PICK2 EQ 1 THEN 
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RUN AGED_AR IN CLUB_PRT.APX 
ENDIF 
IF PICK2 EQ 2 THEN 
RUN PRT BAL IN CLUB_PRT.APX 
ENDIF 
IF PICK2 EQ 3 THEN 
RUN PRT_INC IN CLUB_PRT.APX 
ENDIF 
IF PICK2 EQ 4 THEN 
BREAK 
ENDIF 
ENDWHILE 
CLEAR LEVEL2 
CLEAR PICK2 
GOTO STARTAPP 
ENDIF 
IF PICK1l E 3 THEN 
SET VAR PICK2 INT 
SET VAR LEVEL2 INT 
SET VAR LEVEL2 TO 0 
WHILE LEVEL2 EQ 0 THEN 
NEWPAGE 
CHOOSE PICK2 FROM YRLYRPT IN CLUB_PRT.APX 
IF PICK2 EQ 0 THEN 


BREAK 
ENDIF 
IF PICK2 £0 1 THEN 
RUN PRTMEMBD IN CLUB_PRT.APX 
ENDIF 
IF PICK2 £0 2 THEN 
RUN OP_STMT IN CLUB_PRT.APX 
ENDIF 
IF PICK2 E 3 THEN 
RUN INS_SUM IN CLUB_PRT.APX 
ENDIF 
IF PICK2 EO 4 THEN 
BREAK 
ENDIF 
ENDWHILE 


CLEAR LEVEL2 
CLEAR PICK2 
GOTO STARTAPP 
ENDIF 
IF PICK1l EQ 4 THEN 
GOTO ENDAPP 
ENDIF 
GOTO STARTAPP 
LABEL ENDAPP 
CLEAR PICK1 
RETURN 
SMENU 
MAIN 
COLUMN PRINT REPORTS / STATEMENTS 
PRINT ADMINISTATIVE REPORTS 
PRINT FINANCIAL STATEMENTS 
PRINT ANNUAL REPORT INPUTS 
RETURN TO THE MNFC MAIN MENU 
SMENU 
ADMINPRT 
COLUMN PRINT ADMINISTRATIVE REPORTS 
PRINT MEMBER ROSTER 
PRINT MANAGER'S MONTHLY REPORT 
PRINT A/C INVENTORY & STATUS REPORT 
RETURN TO PRINT REPORTS / STATEMENTS MENU 
SMENU 
YRLYRPT 
COLUMN PRINT ANNUAL REPORT INPUTS 
PRINT MEMBERSHIP BREAKDOWN 
PRINT ANNUAL OPERATING STATEMENT INPUTS 
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PRINT SUMMARY OF INSURANCE 

RETURN TO PRINT REPORTS / STATEMENTS MENU 

SMENU 

PINERT 

COLUMN PRINT FINANCIAL STATEMENTS 

PRINT AGED ACCOUNTS RECEIVABLE 

PRINT BALANCE SHEET 

PRINT INCOME STATEMENT 

RETURN TO PRINT REPORTS / STATEMENTS MENU 

$ COMMAND 

ROSTER 

* ( KRREAKKEKARKKKKRKKRKKRKKKKKEKKKRKRKKRKRKRKRKRKRKRKRKKRKRERKRRKKKRKKRKRKKRKKKKRKKRKAKRKRRKARKRKKKKRKK 

PROGRAM : ROSTER. CMD 

AUTHOR: J. WU. GRAHAM 

DALE: JAN 1987 Shae! .4 

DESCRIPTION: PRINTS THE MONTEREY NAVY ELYING CLUB MEMBERSHIP ROSfam 
INCLUDING BOTH ACTIVE AND INACTIVE MEMBERSHIP. 


TABLE USED: Metre 
FORMS USED: NONE 


REPORT USED: CLUB ROSTER (i 2) 
KAAAAKRAAKKKKARRAAKKRAKRAAKKRRAKKRAAKRKEKKRARKRERAKRERKKRAAKRER AAKK KK ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


NEWPAGE 
WRITE "THE CLUB ROSTER MAY BE PRINTED AS OFTEN AS DESIRED." AT 5,15 
WRITE "UPDATES ARE PERFORMED WHENEVER MEMBERS ARE ENTERED.” AT 775 
WRITE "DO YOU WANT TO PROCEED? ay aA ae 
FILLIN YOURANS USING "Al i 
IF YOURANS = N THEN 
GOTO BAILOUT 
ENDIF 


NEWPAGE 

WRITE "ENSURE PRINTER IS READY." AT 10,28 

anes "PRESS ANY KEY TO BEGIN PRINTING OF ROSTER @. so!) 25) 
PAUSE 


NEWPAGE 
WRITE "WORKING ON PRINTING THE MEMBERSHIP ROSTER" AT 10,19 
WRITE "THIS WILL TAKE A LITTLE TIME, WHY NOT TAKE FIVE ON ME." AT Los 


*(-- Print club roster ) 

OUTPUT PRINTER 

SET VARIABLE TOTNUM INTEGER 

COMPUTE TOTNUM AS COUNT MEM_NUM FROM MEM_REC 
PRINT ROSTER SORTED BY L:NAME F:NAME 

OUTPUT SCREEN 


NEWPAGE 

WRITE "CLUB ROSTER COMPLETE." AT 7,29 

Cage "PRESS ANY KEY TO RETURN TO MENU." AT 10,24 
A 


*(-- Bailout routine for immediate exit) 
LABEL BAILOUT 

SET MESSAGES ON 

SET ERROR MESSAGES ON 


RETURN 
*(* END OF ROSTER.CMD ) 
$ COMMAND 
MGR_PRT 
K(KRREKAKKKEKRKKKKKKKEKKEKKRKKEKRKKKRKEKRKEKEKRKKKKKRKRKKKKKKKRKREKKKKKKKKEKKKKKKKKKKEKKEKE 
PROGRAM : MGR_PRT .CMD 
AUTHOR: J. M. GRAHAM 


194 


DATE: JAN 1987 VERS.3 
DESCRIPTION: THIS MODULE PREPARES THE MONTHLY MANAGER'S REPORT. 
THE REPORT MUST BE COMPEETED APTIER THE MONTHLY BILLING. 


feeees USED: BAL_SHET, EARNINGS, FLT_HIST, MEM_REC 
BPORMS USED: NONE 


REPORTS USED: MGR_RPT (1 2) 
KAKKKAKAKKAAKK KK ARKKKAAAA KKK AAAKKRRAKKRRRARKARRRAAAKRRAKKRRARKK AKKKK ) 


Set MESSAGES OFF 
OPEN FLYCLUB 
See SeRROR MESSAGES OFF 


NEWPAGE 
fees (ne MANAGER'S REPORT MUST BE PRINTED AFTER THE MONTHLY" AT ie 
noe BILLING AND END-OF-THE-MONTH POSTINGS HAVE BEEN DONE." AT 6, 
WRITE "DO YOU WANT TO PROCEED? a " AT 10,24 
meee YOURANS USING " " AT 10,58 
IF YOURANS = N THEN 
GOTO MGREND 
ENDIF 


NEWPAGE 

SET VARIABLE VMONTH TEXT 

SET VARIABLE VSTART DATE 

SET VARIABLE VEND DATE 

WROETE "THE MANAGER'S REPORT IS TO COVER WHICH MONTH?" AT 5,17 
meeelN VMONTH USING "MONTH: " AT 7,35 

WRITE "IN ORDER TO COMPUTE THE MONTHLY FLIGHT HOURS" AT 13,25 
Meee PLEASE, ENTER THE START DATE AND END DATE OF THE MONTH" AT 14,20 
WRITE "THAT THIS MANAGER'S REPORT COVERS" AT 19023 

feeeee, “EXAMPLE: START: 1/1/87" AT 17,25 

fee "END: 1/31/87" AT 18,25 


eee VSTART USING "THE DATE OF MONTH'S START: '" AT 20, 25 
ace orice Ine DATE OF MONTH'S END: ') AT 22,25 
NEWPAG 


foe ENSURE PRINTER IS READY." AT 10,28 
Bice "PRESS ANY KEY TO BEGIN PRINTING THE MANAGER'S REPORT." AT 15,14 
AUS 


NEWPAGE 
WRITE "WORKING ON PRINTING THE MANAGER'S REPORT" AT 10,20 
WRITE "THIS WILL TAKE A LITTLE TIME, WHY NOT TAKE FIVE ON ME." AT Pool 


aoe Print MANAGER'S REPORT ) 

*(-- compute the total membership ) 

COMPUTE VTOTMBRS AS COUNT MEM_NUM FROM MEM_REC 

*(=- compute the month's flt hours as per the month dates given) 

COMPUTE VFLTHRS AS SUM FLT_HRS FROM FLI_HIST WHERE FLTDATE >= .VSTART + 
AND FLTDATE <= .VEND 

SET VARIABLE VMONFLT TO .VFLTHRS 

*(e=- separate income from earnings table to compute income) 

PROJECT TEMP1 FROM EARNINGS USING ACCT_NUM BALANCE WHERE + 
ACCT_NUM >= "4941" AND ACCT_NUM <= "4952" 

APPEND ace TO TEMP1 WHERE ACCT_NUM >= "8100" AND ACCT_NUM + 

COMPUTE VMONINC AS SUM BALANCE FROM TEMP1 

REMOVE TEMP1 

*(-- separate expenses from earnings table to See eae expense only) 

PROJECT TEMP2 FROM EARNINGS USING ACCT_NUM BALANCE WHERE + 
ACCT_NUM >= "5941" AND ACCT_NUM <= 7930! 

APPEND EARNINGS TO TEMP2 WHERE ACCT eNUM = 9255) 

COMPUTE VMONEXP AS SUM BALANCE FROM TEMP2 

REMOVE TEMP2 

*(-- withdraw from balance sheet tabel the asset and liab data) 

COMPUTE VCHECK AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1110" 

COMPUTE VSAV AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1130"! 

COMPUTE VACMBRS AS SUM BALANCE FROM BAL_SHET WHERE ACCT Sie = "1210" 
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COMPUTE VACLESR AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1211" 
COMPUTE VAP AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "2100" 
COMPUTE VSHTERM AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "2510" 


OUTPUT PRINTER 
PRINT MGR_RPT 
OUTPUL SCREEN 


CLEAR VMONFLT 
CLEAR VMONINC 
CLEAR VMONEXP 
CLEAR VTOTMBRS 
CLEAR VCHECK 
CLEAR VSAV 
CLEAR VACMBRS 
CLEAR VACLESR 
CLEAR VTOTMBRS 
CLEAR VAP 
CLEAR VSHTERM 


NEWPAGE 

WRITE "MANAGER'S REPORT COMPLETE." AT 7,27 

Cee "PRESS ANY KEY TO RETURN TO MENU." AT 10,24 
A 


LABEL MGREND 

SET MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

x(x END OF MGRSRE 1, Ciba) 


S$ COMMAND 

Fe ERR IIIA IIR IORI IH SR IHR II IIR ICI HRI IARI IIAP II III IIT ITA 

PROGRAM : AGSTAD en») 

AUTHOR: J. M. GRAHAM 

DATE : JAN 1987 

DESCRIPTION: THIS MODULE PRINTS THE AIRCRAFT INVENTORY AND STATUS 
REPORT. UPDATES THE A/C_HRS TABLE AND READYS IT FOR 
THE NEXT MONTH'S ENTRIES. 


TABLES USED: A/C_HRS 
FORMS USED: FLTHRSEM 


REPORTS USED: A/G STAT (11) 
AKARKAAKKKKKAKK KKK KKK RK RKAKKK AKA KKAKKKKAKAKKK KKK KKK KEK AKKERKAKKAKKAAAKKAKKRKK ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


NEWPAGE 
WRITE "AIRCRAFT STATUS REPORTS SHOULD BE PRINTED AT MONTH'S END." AT 5,8 
WRITE "AIRCRAFT HOURS ARE UPDATED PER A/C TRANSACTION." AT 7,12 
WRITE "ENSURE A BACKUP COPY OF THE DATABASE HAS BEEN MADE." AT 9,10 
WRITE "DO YOU WANT TO PROCEED? Sp = Ae 
FILLIN YOURANS USING " " AT 11,50 
IF YOURANS = N THEN 
GOTO STATEND 
ENDIF 


*(=- allowing manager to verify a/c hours and update a/c_hrs ) 

FILLIN VLOOK USING "DO YOU WANT TO VERIFY THE A/C HOURS? (Y/N) " AT 16,10 
IF VLOOK = Y THEN 

eines USING FLTHRSFM SORTED BY A/C_NUM 
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NEWPAGE 
Peel ee ENSURE PRINTER IS READY, THEN PRESS ANY KEY TO CONTINUE." AT 10,5 
PAUSE 


NEWPAGE 
WRITE "PRINTING THE AIRCRAFT INVENTORY AND STATUS REPORT" AT 10,10 
eee THiS WILL TAKE A LITTLE TIME...WHY NOT TAKE FIVE" AT 15,10 


*R(<- Puen t a/c status report ) 
PE PRINTER 

SereNULL " M 

PRINT A/C_STAT 

OUTPUT SCREEN 

Sef VULL -O- 


*(-- Establish pouponaty table to maintain copy of CUM_HRS, HOB_END, and 
MEM_NUM when tables are cleared for next month's entries. ie 

DELETE ROWS FROM TEMP_HRS WHERE LIMIT = 100 

APPEND A/C_HRS TO TEMP_HRS 

*(-- Move transactions to history tables) 

APPEND A/C_HRS TO HOURHIST 


k(-- meepate tables for next month's entries) 
ae ROWS FROM A/C_HRS WHERE A/C_NUM EXISTS 


*(-- Return CUM_HRS, HOB_END, and MEM_NUM to A/C_HRS ) 
APPEND TEMP_HRS ano Nc HRS 
*k(-- Updates complete) 


NEWPAGE 
WRITE moenthly A/C Inventory and Status Report 1s Complete." AT 7,5 
OTeE TRESS KEY TO CONTINUE" AT 10,18 

AUS 


LABEL STATEND 

SET MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END OF ACSTAT.CMD ) 


S$ COMMAND 

PRTMEMBD 

HK (KAKKKAKKAKARK RK AKRAKKAAKKK RAK KRK RAK ARKA RAR RK RKRK AK RKAKAAAAKRAK AR RARKRKERKE 

PROGRAM : PRTMEMBD. CMD 

AUTHOR: J. M. GRAHAM 

DATE : JAN 1987 VERy 1.3 

DESCRIPTION: THIS MODULE PREPARES THE MEMBERSHIP BREAKDOWN REPORT 
SHOWING WHICH CATEGORY OF MEMBER, SUCH AS NAVAL OFFICER 
oan OPE ITGER HAS FLOWN HOW MANY HOURS OVER THE PAST 

R. 


TABLES USED: MBR_SUM 
PORMS USED: NONE 


REPORT USED: MBR_BKDN (16) 
RRAKRKKKKKKRKK KKK KARR KKK KAKAKK AK AKKEK KAKA KEK KAKAKERKAKEREAEAKEREKKKRK ) 


SeaesMESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


NEWPAGE 
WRITE "MEMBERSHIP FLIGHT BREAKDOWN MAY BE PRINTED ANY TIME." AT 5,5 
WRITE "HOWEVER, IT WILL BE ACCURATE AS OF THE LAST MONTH POSTING"AT 7 a5 
WRITE "AND SHOULD BE PRINTED AFTER THE END OF co MONTH.) AT 6,5 
WRITE "DO YOU WANT TO PROCEED? ee eA 1 5% 
FILLIN YOURANS USING " " AT 15 
IF YOURANS = N THEN 
GOTO PRTMBREND 
ENDIF 


or 


NEWPAGE 
WRITE "!!!! WARNING !!!!" AT 5,20 
WRITE "AFTER PRINTING THE YEARLY REPORT THE DATA IS DELETED" AT 8, 10 
WRITE "YOU CAN PRINT A MONTHLY REPORT OR A YEARLY REPORT" AT 10,10 
WRITE SENTERE " (AT S12 -20 
WRITE "1 - MONTHLY REPORT" AT 14,20 
WRITE "2 = YRARLY REPORT ae le 20 
WRITE “3. = EXIT WITHOUT A REPORT Valea ce 
FILLIN YOURCH USING "YOUR CHOICE IS =" ™ “Al Zur 
IF YOURCH = 1 THEN 
GOTO MONTHLY 
ENDIF 
If YOURCH = 2 THEN 
GOTO YEARLY 
ENDIF 
IF YOURCH = 3 THEN 
GOTO PRIMBREND 
ENDIF 
LABEL MONTHLY 
NEWPAGE 
Cee "ENSURE PRINTER IS READY, THEN PRESS ANY KEY TO CONTINUE.” Al fers 
AU 


NEWPAGE 
WRITE "PRINTING THE MEMBERSHIP FLIGHT BREAKDOWN REPORT" AT 10,15 
WRITE "THIS WILL TAKE A LITTLE TIME, WHY NOT TAKE FIVE ON ME." AT 15,8 


*(e- Print See ae flight breakdown report) 

OUTPUT PRINTER | 

*(-- provides manager with hours for his information ) 

SELECT CATEGORY CATNAME=16 STUDCT=3 STUDHRS PRIVCT=3 PRIVHRS COMMCT=3 + 
COMMHRS CFICT=3 CFIHRS TOTCOUNT=4 TOTHOURS FROM MBR_SUM 

*(-- report does not have hours of each cert; just number in club) 

NEWPAGE 

PRINT MBR_BKDN 

OUTPUT SCREEN 


NEWPAGE 
WRITE "MEMBERSHIP FLIGHT BREAKDOWN REPORT COMPLETE." AT 7,10 
WRITE "PRESS ANY KEY TO RETURN TO MENU." AT 10,15 


PAUSE 
GOTO PRTMBREND 


LABEL YEARLY 
NEWPAGE 


Raver "ENSURE PRINTER IS READY, THEN PRESS ANY KEY TO CONTINUE" AT 1075 
PAU 


OUTPUT PRINTER 

*(-- prints for manager hours and numbers for reference later) 

SELECT CATEGORY CATNAME=16 STUDCT=3 STUDHRS PRIVCT=3 PRIVHRS COMMCT=3 + 
COMMHRS CFICT=3 CFIHRS TOTCOUNT=4 TOTHOURS FROM MBR_SUM 

*(e- print of report ) 

NEWPAGE 

PRINT MBR_BKDN 

OUTPUT SCREEN 


WRITE "PLEASE, STAY BY WHILE I ZERO THE MEMBERSHIP SUMMARY" AT 157510 
WRITE "TABLE AND PREPARE IT FOR THE NEW YEAR'S DATA." AT 17,13 


*(-- delete data from the MBR_SUM TABLE preparing it for the next year) 
SET VARIABLE VENDCT INTEGER 

SET VARIABLE VENDHRS REAL 

SET VARIABLE VENDCT TO 0 

SET VARIABLE VENDHRS TO 0 


SET POINTER #1 STATUS1 FOR MBR_SUM 
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WHILE STATUSI = O THEN 
SET VARIABLE TEMPCAT TO CATEGORY IN #1 
CHANGE STUDCT TO .VENDCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE STUDHRS TO .VENDHRS IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE PRIVCT TO .VENDCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE PRIVHRS TO .VENDHRS IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE COMMCT TO .VENDCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE COMMHRS TO .VENDHRS IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE CFICT TO .VENDCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE CFIHRS TO .VENDHRS IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE TOTCOUNT TO .VENDCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE TOTHOURS TO .VENDHRS IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
NEXT #1 STATUS1 . 

ENDWHILE *(-- end of preparing table for next month) 


LABEL PRTIMBREND 

See BooAGES ON 

Sey ERROR MESSAGES ON 
RETURN 

*(* END OF PRTIMEMBD.CMD ) 


S COMMAND 


Cre oatl 
* (RAKKAKKKKKKAAKAKKARKAKKAKKAAKAKAKKAKAKKRKARAKKRA RA RAKAKAKARAKAKARRK KA 


PROGRAM : SEastit. CMD 

AUTHOR: J. M. GRAHAM 

DATE : JAN 1987 VER@ 5 

PeoertrifON: THIS MODULE PRODUCES ROUGH INPUTS FOR THE REQUIRED 
OPERATING STATEMENTS INCLUDING STATEMENT OF NET WORTH 
FOR THE ANNUAL REPORT INPUT IN ACCCORDANCE WITH CNO 
DSi. LHiSeRErORT MUST "BE PRINTED AFTER THE MONTHLY 
POSTINGS INORDER. FOR THE, DATA TO BE ACCURATE. 


ToaeeeeORL (5 EistebD AS FROM TEMP_HRS TABLE, BUT THIS 
IS ONLY TO ALLOW THE USE OF THE REPORT FORMATER TO USE 
DATSa COMPUTED IN THIS MODULE IN THE REPORT. 


TABLES USED: BAL_SHET, EARNINGS 
Bens USED: NONE 


Peeeet USED: OFSRPT1, OPSRPTZ, OPSRPT3, OPSRPT4, OPSRPTS (19) 
REXKAKAH RH AEAA RIE RIG RIA RAR ORE IORI OR Exkes nee nae AAKKKK KZ ) 


Se MESSAGES OFF 
Ore! FLYCLUB 
SeteekROR MESSAGES OFF 


NEWPAGE 
fette “OPERATING STATEMENTS SHOULD BE PRINTED AFTER THE MONTH" AT 5,16 
Peete OF SEPTEMBER'S BILLING AND POSTING TO END THE FY." AT 7,17 
neeee “THEY ARE DESIGNED AS INPUTS TO REVIEW AND ASSIST IN" AT 10,16 
WRITE "COMPLETING YOUR ANNUAL OFFICAL REPORTS." AT 12,21 
WRITE "DO YOU WANT TO BHP aS? Te ne oo UwoielS, 17 
Peet YOURANS USING " " AT 
IF YOURANS = N THEN 

Zeno OPSMIEND 
ENDIF 


NEWPAGE 

SET VARIABLE VYEAR TEXT 

MPEbIN VYEAR USING "REPORTS ARE FOR YEAR 19 -" AT 5,25 

Peete “ENSURE PRINTER IS READY." AT 10,24 

Bree PEREBos ANY KEY TO BEGIN PRINTING THE REPORT INPUTS" AT 15,15 


NEWPAGE 
Petit PRINTING THE OPERATING STATEMENTS" AT 10,20 
Bere “THIS WILL TAKE A LITILE TIME, WHY NOT TAKE FIVE ON ME." AT ToS 


*(-- Print operating statements ) 
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OUTPUT PRINTER 

k(-- printing the first of the balance sheets) 

COMPUTE VCASH AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1110'"! 

COMPUTE VSAV AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1130" 

COMPUTE VAR AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1210" + 
AND ACCT_NUM = "1211" 

COMPUTE VINVENT AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1341" 

COMPUTE VEQUIP AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1651" 

COMPUTE VEQDEP AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1751" 

COMPUTE VA/C AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1650"! 

COMPUTE VA/CDEP AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1750" 

COMPUTE VPREPD AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "1530" 

COMPUTE VTOTASET AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM >= "1110" + 
ANDVT ACCT. NUM sa 

PRINT OPSRPT1 — 

NEWPAGE *(-- makes print form feed paper after printing) 

CLEAR VCASH 

CLEAR VSAV 

CLEAR VAR 

CLEAR VINVENT 

CLEAR VEQUIP 

CLEAR VEQDEP 

CLEAR VA/C 

CLEAR VA/CDEP 

CLEAR VPREPD 


K( <= Se the last of the balance sheets) 

COMPUTE VAP AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "'2100'! 

COMPUTE VMISCL AS SUM BALANCE FROM BAL _SHET WHERE ACGr -NUM = "21300 
AND ACCT_NUM = "2710" 

COMPUTE VINSUR AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "2530" + 
AND ACCT_NUM = "2140" 

COMPUTE VSHTERM AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM = "2510"! 

COMPUTE VTOTLIAB AS SUM BALANCE FROM BAL_ SHET WHERE ACCT NUM >= "21003; 
AND ACCT_NUM <= "'2710!! 

PRINT OPSRPT2 

NEWPAGE 

CLEAR VAP 

CLEAR VMISCL 

CLEAR VINSUR 

CLEAR VSHTERM 


Ae printing the first of the operating income/expenses sheets) 

*(-= Comeau ad income and expense values needed for the report) 

SET VARIABLE VRETAIN TO .TOTASET - .TOTLIAB 

COMEUIE VELISUP AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "4941" 

COMPUTE VFLTCOST AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "5941"! 

COMPUTE VRENT AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "4951"! 

COMPUTE VCFI AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "4952" 

COMPUTE VADMIN AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "7110" 

COMPUTE VMAINT AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM >= "7120" 

COMPUTE VACCOST AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "6950" + 
AND ACCT_NUM = "7130" 

COMPUTE VGAS AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "7701" + 
AND ACCT_NUM = "7703"! 

COMPUTE VOIL AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "7702" 

COMPUTE VMAIN1 AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "7121" 

COMPUTE VMAIN2 AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM >= "7740" + 
AND ACCT_NUM <= "7742" 

SET VARIABLE VACMAINT TO .VMAIN1 + .VMAIN2 

COMPUTE VUTIL AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "7511" + 
AND ACCT_NUM = "7513" 

COMPUTE VTEL AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM 1520 
AND ACCT_NUM = "7521" 

COMPUTE VSUP AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "7710"! 

COMPUTE VINSCOST AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM >= "7810" + 
AND ACCT_NUM <= "7812" 

COMPUTE VINC1 AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM >= "8100" 

AND ACCT_NUM <= "8192" 
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COMPUTE VINC2 AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM = "8301"! 


32. VARIABLE VOTHINC TO .VINC1 + .VINC2 
SUM BALANCE FROM EARNINGS WHERE ACCT_NUM 
SUM BALANCE FROM EARNINGS WHERE ACCT_NUM 


Reade FROM EARNINGS WHERE ACCT_NUM 
SUM BALANCE FROM EARNINGS WHERE ACCT_NUM 


eviliSsc2 
.VMISC4 


COMPUTE VINTST AS 
COMPUTE VMNISC1] AS 
CT_NUM = 
COMPUTE VMISC2 AS 

AND ACCT_NUM = 
GOMEUITE VMISC3 AS 
SET VARIABLE VMISC4 TO .VMISC1 + 
Same VARIABLE VMSEXP TO .VMISC3 + 
COMPUTE VINTEXP AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM 
COMPUTE VBADDBT AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM 


AND AC 


PRINT 


OPSRPT3 


NEWPAGE 


* 


COMPUTE VTOTINC] AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM >= 

AND ACCT_NUM <= 52" 

COMPUTE VTOTINC2 AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM >= 
AND ACCT_NUM <= det 

SET VARIABLE VTIOTINC TO .VTOTINC] + .VTOTINC2 

COMPUTE VTOTEXP1 AS SUM BALANCE FROM EARNINGS WHERE ACCT_NUM >= 
AND ACCT_NUM <= "7930" 

Ser VAREABLE VTOTEXP TO .VBADDBT + .VIOTEXP1 

SET VARIABLE VNETINC TO .TOTINC - 


PRINT 


OPSRPT4 


NEWPAGE 


Tk WNETS 


. VTOTEXP 


SET VARIABLE VNETLOSS TO .VNETINC 


SET VARIABLE VNETINC TO 0 


ENDIF 


IF VNETINC >= 


SET VARIABLE VNETLOSS TO 0 


ENDIF 


*(e- printin 
Peet OPSRPT 


NEWPAGE 


CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 


VTOTASET 
VTOTLIAB 
VTOTINC 
VTOTINC1 
VTOTINC2 
VEOREXP 
MIOTEAPL 
VNETINC 
VNETLOSS 


PEE SUP 
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——_ 
—— 
= 
= 


i 


‘a printing the last of the operating income/expense sheets) 
-- print routine uses the values computed above also) 


"g3gqg!! 
"7930" + 


"7522" + 
"7711" 


"7712" 
"9255" 


"4941" + 
"8100" + 
"5941" + 


are netincome or netloss for the statement of net worth) 
G70. THEN 
SET VARIABLE VNETINC TO .VNETINC X -1l 


g the statement of net worth using data computed above) 


CLEAR VSUP 

CLEAR VINSCOST 

CLEAR VOTHINC 

CLEAR VINTST 

CLEAR VMSEXP 

CLEAR VINTEXP 

CLEAR VBADDBT 

k(-- return control to screen and user ) 
OUTPUT SCREEN 


NEWPAGE 

WRITE “OPERATING STATEMENTS ARE COMPLETE." AT 7,23 
WRITE "PRESS ANY KEY TO RETURN 10 MENU2  =Al 1072. 
PAUSE 


LABEL OPSMTEND 
SET MESSAGES ON 
SET ERROR MESSAGES ON 


RETURN 
*(* END OF OP_STMT.CMD ) 
$ COMMAND 


CHEECH G ESOS GOI II IITA SAR IIR RR RA IO TT TRIES I RAR 
PROGRAM: INS_SUM. CMD 
AUTHOR : J. M. GRAHAM 
DATE: JAN 1987 VER 1.2 
DESCRIPTION: THIS MODULE PREPARES THE SUMMARY OF INSURANCE ON ALL 
AIRCRAFT IN THE CURRENT INVENTORY. THIS REPORT IS 
ONE OF THE REQUIRED ANNUAL REPORT INPUTS. 


TABLES USED: A/C_REC 
FORM. Us. NONE 


REPORT USED: INS_SUM (1 7) 
KAKKARKKKKKRKKARKARAKAKKKAAKK RARER AAAKKKK RARER RR ARARAAAAAKKRKK AKAKKKKE ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


NEWPAGE 

WRITE "THE INSURANCE SUMMARY SHOULD BE PRINTED AS NEEDED." AT 5,10 
WRITE "DO YOU WANT TO caer ee ' AT 10,17 

FILLIN YOURANS USING " " AT 


IF YOURANS = N THEN 
GOTO INSUMEND 
ENDIF 


NEWPAGE 

SET VARIABLE YR1 TEAT 

SET VARIABLE YR2Z TEXT 

FILLIN YR1 USING "INSURANCE REPORT COVERING YEAR 19 -" AT 5,10 

FILEIN YR2 USING “ENDING YEAR 19 =“ Sal 7a 

WRITE "YOU WILL HAVE TO FILL-IN THE NUMBER DAYS PER PLANE" AT 1075 

WRITE "AFTER THE INSURANCE SUMMARY IS PRINTED" AT 11,10 

Cages "ENSURE PRINTER IS READY, THEN PRESS ANY KEY TO CONTINUE." AT 15,5 
3 


NEWPAGE 
WRITE "PRINTING THE INSURANCE SUMMARY" AT 10,20 
WRITE “THIS WILL TAKE A LITTER TIME, WHreier TAKE FIVE ON ME." AT 15338 


*(-- Print insurance summary ) 
+ (eat SCREEN WITH PRINTER 
aed the manager the material for rough work ) 
ote A/C_NUM TYPE YEAR MODEL PASSEAT=3 NO_ENG=3 START STOP + 
HULLVAL=6 HULLPREM=6 LIABPREM=6 TOTPREM=7 FROM A/C_REC 
NEWPAGE 
*( PRINT INS_SUM ) 
OUTPUT SCREEN 
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NEWPAGE 

WRITE "INSURANCE SUMMARY IS COMPLETE." AT 7,10 
Regie "PRESS ANY KEY TO RETURN TO MENU." AT 10,15 
PAUSE 


LABEL INSUMEND 

Sel HESSAGES ON 

mee BRROR MESSAGES ON 
RETURN 

*(* END OF INS_SUM.CMD) 


$ COMMAND 

IEF AK RAAHAERRAAEAAKAKARAKAKAKARRRRAERRARARRRARRA RRR KAR RRAKIKI KE 

PROGRAM : AGED_AR.CMD 

AUTHOR: J. M. GRAHAM 

DAE : JAN 1987 von les 

BeeentFTION: THIS MODULE PREPARES AND PRINTS THE SUMMARY OF AGED 
ACCOUNTS RECEIVABLE. 


[ieeees USED: MEM_REC, ACCT_REC 
FORMS USED: NONE 


PerORT USED: GED_AR (1 en 
KAARKAKAKAAKKAKKKAKKAKKKAAKAKAKKAKKAAKAKKAKKAKKKKKAKKAKAKKKAKKKKAKA AX Kx ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


NEWPAGE 
WRITE "AGED ACCOUNTS RECEIVABLE REPORT MAY BE PRINTED ANY TIME."AT 5, 
WRITE "HOWEVER, THE ACCOUNTS ARE ONLY UPDATED MONTHLY AND MAY" AT 7, 
Meele “NOT BE CURRENT UNLESS YOU HAVE COMPLETED THE END-OF-THE" AT 8 
mate “MONTH POSTING. RECOMMEND YOU PRINT REPORT AFTER YOU HAVE"'AT 9 
WRITE "COMPLETED THE MONTH'S BILLING AND POSTING." AT 10,10 
WRITE "DO YOU WANT TO PROCEED? en Real Lop 17 
FILLIN YOURANS USING " " AT 15, 
IF YOURANS = N THEN 

GOTO AGEDEND 
ENDIF 


NEWPAGE 
ree "ENSURE PRINTER IS READY, THEN PRESS ANY KEY TO CONTINUE."AT10,5 


NEWPAGE 
WRITE "PRINTING THE AGED ACCOUNTS RECEIVABLE REPORT" AT 10,10 
WRITE "THIS WILL TAKE A LITTLE TIME, WHY NOT TAKE FIVE ON ME." AT 15 75 


*(-- Print aged accounts receivalbe report) 
OUTPUT PRINTER 

PRINT AGED_AR 

OUTPUT SCREEN 


NEWPAGE 
WRITE "AGED ACCOUNTS RECEIVABLE REPORT COMPLETE." AT 7,10 
Bie. Paseo ovens, 10 RETURN TO MENU." AT 10,15 


LABEL AGEDEND 

Sel MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END OF AGED_AR.CMD *) 


$ COMMAND 


PRT_BAL 
K (KRRKAKAKAKAAKAKK KK AAAK KKK AKER AK KKK KK KK AKA AKKK AAA AAKKK AKA AAKK KKK AKA AKKK 
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PROGRAM : PRT_BAL.CMD 
AUTHOR: J. M. GRAHAM 
JAN 1987 VE ie. 5 


DATE: ° 
DESCRIPTION: THIS MODULE TAKES THE INFORMATION LOCATED IN THE BALANCE 
aH TABLE AND PREPARES AND PRINTS A CURRENT BALANCE 
Des 


TABLES USED: BAL_SHET 
FORMS USED: NONE 


REPORT USED: BALSHET (1 6) 
KRAKKRAAKKKKAKKKAAKKKAKK AKA KAAKARAAAKAAKK RAK AKA AKAAAKRRAKRRRARR AKRKR ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


NEWPAGE 
WRITE “THE BALANCE SHEET SHOULD BE PRINTED AT MONTH'S END." AT 5,5 
WRITE "ALL ACCOUNT POSTING IS CONDUCTED MONTHLY. YOUR REPORT" AT Te 
WRITE"MAY NOT BE ACCURATE UNLESS ee HAVE COMPLETED THIS MONTH'S"AT a 5 
WRITE "BILLING AND POSTING." AT 
WRITE "DO YOU WANT TO a oe 2 (x78) mM Tole, 
FILLIN YOURANS USING " " AT 
IF YOURANS = N THEN 

GOTO BALEND 
ENDIF 


NEWPAGE 
Gee "ENSURE PRINTER IS READY, THEN PRESS ANY KEY TO CONTINUE."AT 10,5 


NEWPAGE 
WRITE "PRINTING THE CURRENT BALANCE SHEET AS OF LAST UPDATE" AT 10,5 
WRITE "THIS WILL TAKE A LITTLE TIME, WHY NOT TAKE FIVE ON ME." AT 15,8 


*(-- Print current balance sheet as of last database update) 
SET DATE MMM-DD=-YYyvy 


OUTPUT PRINTER 
SET VARIABLE NETWRTH DOLLAR 
SET VARIABLE GRANDTOT DOLLAR 


COMPUTE TOTASET AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM LT '2100" 
COMPUTE TOTLIAB AS SUM BALANCE FROM BAL_SHET WHERE ACCT_NUM GE "2100" 
SET VARIABLE NETWRTH TO .TOTASET - .TOTLIAB 

SET VARIABLE GRANDTOT TO .TOTLIAB + .NETWRTH 


PROJECT TEMP1 FROM BAL_SHET USING ALL 
DELETE ROWS FROM BAL_SHET WHERE ACCT_NUM GE "2100" 


PRINT BALSHET1 
APPEND TEMP1 TO BAL_SHET WHERE ACCT_NUM GE "2100" 
DELETE ROWS FROM BAL_SHET WHERE ACCT_NUM LT "2100" 
PRINT BALSHETZ 


APPEND TEMP1 TO BAL_SHET WHERE ACCT_NUM LT "2100" 
REMOVE TEMP1 


SET DATE MM/DD/YY 
CLEAR TOTASET 
CLEAR TOTLIAB 
CLEAR NETWRTH 
CLEAR GRANDTOT 


OUTPUTS Chen 
NEWPAGE 
WRITE "BALANCE SHEET IS COMPLETE." AT 7,10 
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WRITE "REMEMBER TO BACK-UP AND PACK YOUR DATABASE ONCE YOU" AT 10,15 
Mette “HAVE COMPLETED PRINTING ALL MONTHLY REPORTS" AT 12,19 

WRITE "PRESS ANY KEY TO RETURN TO MENU." AT 20,15 

PauUSE 


LABEL BALEND 

Seal MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END OF PRT_BAL.CMD *) 


SCOMMAND 

FRR AAAI K RRA AIIARARSIAAIAHAARHARRRRR RIKER RAR AIR AIRARAIARRARE AREA 

PROGRAM : Pei LNG erp 

AUTHOR: J. M. GRAHAM 

DATE: JAN 1987 Vem l.3 

PeeencLPTION;: THIS MODULE PREPARES AND PRINTS THE INCOME STATEMENT 
UTILIZING THE LAST MONTHLY UPDATE TO THE EARNINGS 
TABLE. THIS DOES NOT ACCOUNT FOR ENTRIES MADE AFTER 
BOntnoy UPDATES...WILL BE ON NEXT MONTH'S TOTALS. 
NORMAL INCOME STATEMENT PRINTED YEARLY. 


Teeees USED: EARNINGS 
Bentis USED: NONE 


PaeoR) USED: INCSTMT (1 2) 
AAAKKRKAKKKAKAK RAK KAKA KK KAKA KK KAAK KKK AKAKKK AK AKER EKER KKK KEK RAKAK ERK ) 


SaueBOSAGES OFF 
OPEN FLYCLUB 
eee eOn MESSAGES OFF 


NEWPAGE 

WRITE "THE INCOME STATEMENT SHOULD BE PRINTED AT YEAR'S END." AT 5,5 
WRITE "ALL ACCOUNTS ARE UPDATED AND POSTED MONTHLY. YOUR REPORT'AT TD 
WRITE "WILL BE ACCURATE AS OF THE LAST MONTH POSTING UNLESS YOU"AT 8, 5 
moeee COMPLETED THE LAST MONTH OF THE YEAR POSTING." AT 8,10 

WRITE "FOR FISCAL YEAR REPORTS PRINT AFTER SEPTEMBER'S POSTINGS"AT 10,5 


WRITE "DO YOU WANT TO PROCEED? Ue ee Dodo, dt 
PILLIN YOURANS USING " " aT 15,50 
IF YOURANS = N THEN 
GOTO INCEND 
ENDIF 
NEWPAGE 
MeebiiievrY USING "REPORT FOR FY - " AT 5,25 
FILLIN VMONTH USING "REPORT ENDING MONTH - " AT 7,25 
PPEetN VYEAR USING "OF YEAR - " AT 9,35 


Petlee ENSURE PRINTER IS READY." AT 13,27 
ae “PRESS ANY KEY TO BEGIN PRINTING OF INCOME STATEMENT" AT 18,14 


NEWPAGE 
WRITE “PRINTING THE INCOME STATEMENT AS OF LAST UPDATE" AT 10,16 
WRITE "THIS WILL TAKE A LITTLE TIME, WHY NOT TAKE FIVE ON ME." AT 15,13 


*(-- Print current income statement as of last database update) 


SET VARIABLE VTOTINC DOLLAR 

SET VARIABLE VTOTEXP DOLLAR 

SET VARIABLE VNET DOLLAR 

*A(=- saves the current earnings table values ) 
PROJECT TEMP1 FROM EARNINGS USING ALL 


*(-- separate income from connings table to ecupute income ) 
DELETE ROWS FROM EARNINGS WHERE ACCT_NUM >= "5941" + 
AND ACCT_NUM <= "7930! 


ZU 


DELETE ROWS FROM EARNINGS WHERE ACCT UNUM S— 09255) 
COMPUTE VTOTINC AS SUM BALANCE FROM EARNINGS 
OUTPUT PRINTER 

PRONE scNeS iis 


*(-- separate expenses from Seca table to soueites expense only) 
APPEND TEMP1 TO EARNINGS WHERE ACCT_NUM >= "5941" 
AND ACCT_NUM <= "'7930'! 
APPEND TEMP1 TO EARNINGS WHERE ACCT_NUM = "9255" 
*(-- remove all income from table to print expenses) 
DELETE ROWS FROM EARNINGS WHERE ACCT_NUM >= "4941" + 
AND ACCT_NUM <= "4952" 
DELETE ROWS FROM EARNINGS WHERE ACCT_NUM >= "8100" + 
aND@AGeT NUM <= "8301" 
COMPUTE VTOTEXP AS SUM BALANCE FROM EARNINGS 
SET VARIABLE VNET TO .VTOTINC - .VTOTEXP 
PRINT INGSTINTZ . 
*(-- delete wor kung values and restore earnings table as was) 
DELETE ROWS FROM EARNINGS WHERE ACCT_NUM EXISTS 
APPEND TEMP1 TO EARNINGS 
REMOVE TEMP1 


CLEAR VTOTINC 
CLEAR VTOTEXP 
CLEAR VNET 

OUTPUT SCREEN 


NEWPAGE 

WRITE “INCOME STATEMENT ITS eCOMNPEE TE. ee eg 25 

SE Tee "PRESS ANY KEY TO RETURN TO MENU." AT 1G723 
PAUS 


LABEL INCEND 

SET MESSAGES ON 

SET ERROR MESSAGES ON 
RETURN 

*(* END PRT_INC.CMD *) 
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A(x 
x(x 
K(x 
K(x 
x(x 
x(x 
xix 
K{x* 
x 


APPENDIX H 
CLUB_END SOURCE CODE 


RARAKRAKRKAAKRKRKRKRKKAKRKKRKKRKRKARRARKKRKAKKRRRKRKKKRKRKRKKRRRKRKRKAKRKRKRKAKRKRAKKRKRAARKRRKRKKKK 


MONTEREY NAVY FLYING CLUB 
MANAGEMENT INFORMATION SYSTEM 
PROTOTYPE VERSION. 2.0 


END-OF-THE-MONTH TRANSACTIONS APPLICATION 


LCDR. JAMES M. GRAHAM, USN 
ANUARY 1987 


r J 
gh! crchrnannnnnannnnnnins 


S$ COMMAND 
CLUB_END 


SL 


MESSAGE OFF 


OPEN FLYCLUB 


Sed 
ob. 
LAB 


ERROR MESSAGE OFF 
MeaeeFICKL INT 
EL STARTAPP 


NEWPAGE 
CHOOSE PICK1 FROM END_MAIN IN CLUB_END.APX 
IF PICK1 EQ 0 THEN 


GOTO ENDAPP 


ENDIF 
me Fr.cKi &£ 


Pnen 
RUN REOCCUR IN CLUB_END.APX 
GOTO STARTAPP 


ENDIF 


i 


F PICKl E 2 THEN 
SET VAR PICK2 INT 
SET VAR LEVEL2 INT 
SET VAR LEVEL2 TO 0 
WHILE LEVEL2 EQ 0 THEN 
NEWPAGE 
CHOOSE PICK2 FROM BILLING IN CLUB_END.APX 
IF PICK2 EQ 0 THEN 
BREAK 
ENDIF 
IF PICK2 E 1 THEN 
RUN MEMSTMT IN CLUB_END.APX 
ENDIF 
IF PICK2 EQ 2 THEN 
RUN INSTSTMT IN CLUB_END.APX 
ENDIF 
IF PICK2 E 3 THEN 
RUN LES_STMT IN CLUB_END.APX 
ENDIF 
IF PICK2 EO 4 THEN 
BREAK 
ENDIF 
ENDWHILE 
CLEAR LEVEL2 
CLEAR PICK2 
GOTO STARTAPP 


ENDIF 


i 


bee 1CK1 EO See 
RUN END_MON IN CLUB_END.APX 
GOTO STARTAPP 


ENDIF 


iT 


F PICK1l EQ 4 THEN 
RUN BACKPACK IN CLUB_END.APX 
GOTO STARTAPP 
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* 
* 
* 


es 


. 
: 
} 


aes 


ENDIF 


TReELCKT LEO 5 THEN 
GOTO ENDAPP 
ENDIF 


GOTO STARTAPP 
LABEL ENDAPP 
CEBARSF Ten 
RETURN 
SMENU 
END_MAIN 
COLUMN END-OF-THE-MONTH TRANSACTIONS 
POSTING REOCCURRING CHARGES 
POST AND PREPARE MONTHLY BILLINGS 
POST MONTHLY JOURNAL ENTRIES 
BACK UP AND PACK THE DATABASE 
RETURN TO THE MNFC MAIN MENU 
SMENU 
BILLING 
COLUMN POST AND PREPARE MONTHLY BILLINGS 
POST AND PRINT MEMBER STATEMENTS 
POST AND PRINT INSTRUCTOR STATEMENTS 
POST AND PRINT LESSOR STATEMENTS 
RETURN TO END-OF-THE-MONTH MENU 
S$ COMMAND. 


REOCCUR 
K (RAKKRARKAKKKAKKAKKAKKRAKRKAKA RRR AKKRAK RRA KKK AKKRKEKKRRKKA KARA ARR AKKRAK RK 


PROGRAM : REOCCURSCHD 

AUTHOR: J. M. GRAHAM 

DawEe JAN 1987 VER ees 

DESCRIPTION: THIS MODULE POST REOCCURRING CHARGES [OTHE TEiBeee 
CHARGE ACCOUNT. THE MANAGER WILL NOTE WHETHER BOTH 
THE MONTHLY DUES AND THE MEMBER MEETING CHARGES ARG 
BE POSTED OR JUST ONE TO BE POSTED TO.@2Cn MEMaare 


TABLES USED > ee eRe eerie le enG 


FORMS USED: NONE (1 6) 
KAKRRKAKAKKKAAKKERARKKKKAKKAKAKAKKK AA AAKAKKRAKKAARKKKKAKRAAAKARKKRRR AKKKx ) 


SET MESSAGES OFF 
OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


*(-- screen memu to ask if both charges are required ) 
NEWPAGE 
WRITE POSTING REOCCURRING CHARGES ” AT 5,25 
WRITE "lene meee e mene ee ee ewer eeeee-s= Algo. 25 
WRITE ae We BLA 10 
WRITE "1 =- POST ONLY MONTHLY MEMBERSHIP DUES" AT 11,10 
WRITE "2 - POST BOTH MONTHLY DUES AND MEETING CHARGES"! AT 13°40 
WRITE "3 =- EXIT WITH NO POSTING" AT 15,10 
WRITE “GHOLTCGE = eat ely. 10 
EILLIN YOURCGCH USENG.” " AT 17,20 
IF YOURCH = 1 THEN | 
cee POSTDUES *(-- call dues posting submodule ) 
IF YOURCH = 2 THEN | 
encore POSTBOTH *(-- call subroutine to post both charges ) 
IF YOURCH = 3 THEN . . 
GOTO REOCEND *(-- exit routine) 
ENDIF 


x(-- subroutine that determines and post correct dues to member) 
LABEL POSTDUES 
NEWPAGE 
k(-- screen a eee to tell user operations have pegun ) 
WRITE "Mate, would like cream sees oe imemy cofree’ AT oAls 
WRITE "What do you want in YOURS?" 
WRITE "Why not take that well aecevued coffee break while I work"AT 9,5 
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WRITE "on the reoccurring charges" AT 10,5 
WRITE "PRESS ANY KEY FOR ME TO BEGIN WORKING" AT 12,20 
PAUSE 

SET VARIABLE VACCTNUM TO "8100" 

SET VARIABLE VSINGMBR TO "SM!" 

SET VARIABLE VCOUPLE TO "MC'! 

SET VARIABLE VMBRDEP TO "DM! 

SET VARIABLE VTX:DATE TO .#DATE 

SET VARIABLE VDUECHG TO DOLLAR 

SET VARIABLE VDUEINC TO DOLLAR 

SET VARIABLE VACTIVE TO "A" 


*(-- charge single member dues ) 
SET VARIABLE VDUECHG TO 7.50 
— pempute rate member dues and post to income table) 
COMPUTE VSINGCT AS COUNT DUE_STAT FROM MEM_REC WHERE MEM_STAT EO + 
~VACTIVE AND DUE_STAT EQ .VSINGMBR 
IF VSINGCT EXITS THEN 
SET VARIABLE VNAME TO "MONTHLY SINGMBR DUES"! 
SET VARIABLE VDUEINC TO .VDUECHG & .VSINGCT 
LOAD INCOME 
~VACCTNUM .VNAME .VDUEINC .VTX:DATE P 


END 
CLEAR VDUEINC oe | 
ENDIF *(-- end of posting income from single dues) 


SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_STAT EQ .VACTIVE + 
AND DUE_STAT EQ .VSINGMBR 
WHILE STATUS1 = 0 THEN 
SET VARIABLE VMEMNUM TO MEM_NUM IN #1 
LOAD MEM_CHG USING MEM_NUM TRANDATE CHARGES DESCRIPT 
~VMEMNUM .VTX:DATE .VDUECHG DUES 


END 
ENDWHILE ae end of single due charges ) 
*(-- married couple due c eae ) 
SET VARIABLE VDUECHG TO 22.5 . 
*(-- compute married members dues and post to income table) 
COMPUTE VCOUPCT AS COUNT DUE_STAT FROM MEM_REC WHERE MEM_STAT EQ + 
sVACTIVE AND DUE_STAT EQ .VCOUPLE 
ieee VeCOUPCT EXITS THEN 
SET VARIABLE VNAME TO "MONTHLY COUPLE DUES" 
SET VARIABLE VDUEINC TO .VDUECHG X .VSINGCT 
LOAD INCOME 
me CINCH ~VNAME .VDUEINC .VTX:DATE P 
CLEAR VDUEINC | | 
ENDIF *(-- end of posting income from married member dues) 


SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_STAT EQ .VACTIVE + 
AND DUE_STAT ES SVCOUERLE 
WHILE STATUS1 = 0 THEN 
SET VARIABLE VMEMNUM TO MEM_NUM IN #1 
LOAD MEM_CHG USING MEM_NUM TRANDATE CHARGES DESCRIPT 
Eri ~VMEMNUM .VTX:DATE .VDUECHG DUES 


ENDWHILE *(-- end of married couple due charges ) 
*(-- dependent member due charges ) 
SET VARIABLE VDUECHG TO 15 
*(-- compute dependent member dues and post to income table) 
GOMEUTE VDEPCT AS COUNT DUE_STAT FROM MEM_REC WHERE MEM_STAT EQ + 
SVACTIIVE AND DUE_STAT EO .VMBRDEP 
IF VDEPCT EXITS THEN 
SET VARIABLE VNAME TO "MONTHLY DEPENDENT MEMBER DUES'! 
SET VARIABLE VDUEINC TO .VDUECHG X .VSINGCT 
LOAD INCOME 
Bee NM ~.VNAME .VDUEINC .VTX:DATE P 
CLEAR VDUEINC —— 
ENDIF *(-- end of posting income from dependent member dues) 
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SET POINTER #1 STATUSI FOR MEM_REC WHERE MEM Sian eeO). eel. Een 
AND DUE_STAT ee . VMBRDEP 
WHILE STATUS1 = 0 THEN 
SET VARIABLE VMEMNUM TO MEM_NUM IN #1 
LOAD MEM_CHG USING MEM_NUM TRANDATE CHARGES DESCRIPT 
Si oVMEMNUM .VTX:DATE .VDUECHG DUES 
D 


ENDWHILE *( -- end of dependent member due charges ) 
NEWPAGE 

WRITE "POSTING OF MEMBER DUES IS COMPLETED" AT 10,10 
WRITE "PRESS ANY KEY TO RETURN TO MEMU" AT 15,10 


PAUSE 
GOTO REOCEND 


LABEL POSTBOTH 
*(-- subroutine posting both member dues and meeting charges ) 
NEWPAGE 
SET VARIABLE VMTGCHG TO DOLLAR 
FILLIN VMTGCHG USING "AMOUNT OF MEETING CHARGE IS - " AT 10,10 
WRITE "WHY NOT TAKE THAT WELL DESERVED COFFEE BREAK" AT 15,10 
WRITE "AND LET ME WORK ON THESE REOCCURRING CHARGES" AT 16,10 
OE ae WPRESS ANY KEY FOR ME 10 BEGIN eat 207zo 
U : 
SET VARIABLE VACCTNUM TO "8190" 
SET VARIABLE VSINGMER TO "Si" 
SET VARIABLE VCOUPLE TO "MC" 
SET VARIABLE VHBRBEP TOs {bi 
SET VARIABLE VTX:DATE TO .#DATE 
SET VARIABLE VDUECHG TO DOLLAR 
SET VARIABLE VACTIVE TO "A" 
SET VARIABLE VMIGFEE TO "MEETING CHARGE" 
ee post member meeting charges to all active members ) 
*(-- compues total income from meeting enaaze and post to income) 
COMPUTE VMBRCT AS COUNT MEM_STAT FROM MEM_REC WHERE MEM_STAT + 
Ee » VACTIVE 
SET VARIABLE VMTGAMT TO DOLLAR 
SET VARIABLE VMTGAMT TO .VMBRCT xX .VMTCHG 
LOAD INCOME 
a -VTX:DATE .VMTGAMT .VMTGFEE 


SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_STAT EQ .VACTIVE 
WHILE STATUS1 = 0 THEN 

SET VARIABLE VMEMNUM TO MEM_NUM IN #1 

LOAD MEM_CHG USING MEM_NUM TRANDATE CHARGES DESCRIPT 

cas -VMEMNUM .VIA:DAIE .VHIGCHG SViiGaas 


ENDWHILE | 
*(-=- charge single member dues ) 
SET VARIABLE VDUECHG TO 7250 
R(<- Seu pUES single member dues and post to income table) 
COMPUTE VSINGCT AS COUNT DUE_STAT FROM MEM_REC WHERE MEM_STAT EQ + 
~VACTIVE AND DUE_STAT EQ .VSINGMBR 
IF VSINGCT EXITS THEN 
SET VARIABLE VNAME TO "MONTHLY SINGMBR DUES" 
SET VARIABLE VDUEINC TO .VDUECHG X .VSINGCT 
LOAD INCOME 
~VACCTNUM .VNAME .VDUEINC .VTX:DATE P 


END 
CLEAR VDUEINC _—— . 
ENDIF *(-- end of posting income from single dues) 


SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_STAT EQ .VACTIVE + 
AND DUE_STAT ee » VSINGMBR 
WHILE STATUS1 = 0 THEN 
SET VARIABLE VMEMNUM TO MEM_NUM IN #1 
LOAD MEM_CHG USING MEM_NUM TRANDATE CHARGES DESCRIPT 
~VMEMNUM .VTX:DATE .VDUECHG DUES 
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END 
ENDWHILE sa end of sin Le due eo ) 
*(-- married couple due c eoaes 
SET VARIABLE VDUECHG TO 22.5 . 
*(-- compute married members dues and post to income table) 
COMPUTE VYVCOUPCT AS COUNT DUE_STAT FROM MEM_REC WHERE MEM_STAT EQ + 
-VACTIVE AND DUE_STAT EQ .VCOUPLE 
fireweourCT EXITS THEN 
SET VARIABLE VNAME TO "MONTHLY COUPLE DUES"! 
SET VARIABLE VDUEINC TO .VDUECHG & .VSINGCT 
LOAD INCOME 
2 ~VACCTNUM .VNAME .VDUEINC .VTX:DATE P 


D 
CLEAR VDUEINC oe | 
ENDIF *(-- end of posting income from married member dues) 


SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_STAT EQ .VACTIVE + 

AND DUE_STAT aon -VCOUPLE 
WHILE STATUS1 = Q THEN 

SET VARIABLE VMEMNUM TO MEM_NUM IN #1 
LOAD MEM_CHG USING MEM_NUM TRANDATE CHARGES DESCRIPT 
a ~VMEMNUM .VTX:DATE .VDUECHG DUES 
D 

ENDWHILE *(-- end of married couple due charges ) 
*(-- dependent member due charges ) 
SET VARIABLE VDUECHG TO 15 
*(-- compute sepe news member dues and post to income table) 
Peete VDEPCT AS COUNT DUE_STAT FROM MEM_REC WHERE MEM_STAT EQ + 

-VACTIVE AND DUE_STAT EQ. » VMBRDEP 
IF VDEPCT EXITS THEN 

SET VARIABLE VNAME TO "MONTHLY DEPENDENT MEMBER DUES" 

SET VARIABLE VDUEINC TO .VDUECHG XK .VSINGCT 

LOAD INCOME 

ae »~VNAME .VDUEINC .VTX:DATE P 

CLEAR VDUEINC a 
ENDIF *(-- end of posting income from dependent member dues) 


SeeeeOrNlER #1 STATUS! FOR MEM_REC WHERE MEM_STAT EQ .VACTIVE + 
AND DUE_STAT Ee . VMBRDEP 
WHILE STATUS1 = 0 THEN 
SET VARIABLE VMEMNUM TO MEM_NUM IN #1 
LOAD MEM_CHG USING MEM_NUM TRANDATE CHARGES DESCRIPT 
a »~VMEMNUM .VTX:DATE .VDUECHG DUES 
D 


PORHILE *( -- end of dependent member due charges ) 

A 

WRITE" POSTING OF MEMBERS! DUES AND MEETING CHARGES IS COMPLETED"AT 10,10 
ae PEaeos ANY KEY TO RETURN TO THE MENU" AT 20,20 


LABEL REOCEND 

SET MESSAGES ON 

sel ERROR MESSAGES ON 
RETURN 

*(* END OF REOCCUR.CMD ) 


S$ COMMAND 


END_MON 
K (ARAKKKAKKKAKKAKAKKKAKKAKAKKAKKKKAARKKKAKKRKAKKKKARKKAKAKKKKAKKAKKAEKKAKKKKKK KA 


PROGRAM : END_MON.CMD 

AUTHOR : J. M. GRAHAM 

DATE : JAN 1987 Wie Sle 

BesekePTION: THIS MODULE POST THE MONTH JOURNAL ENTRIES OF MOST 
DATABASE TABLES AND PLACES ACCOUNT TOTALS IN THE 
GENERAL PURPOSE TABLES. THEN THE JOURNAL ENTRIES ARE 
PLACED IN THEIR ASSOCIATED HISTORICAL TABLE AND THE 
TABLES ARE PREPARED FOR THE NEXT MONTH'S TRANSACTIONS. 


Ziel 


SOME TABLES ARE POSTED AND THEN PLACED IN HISTORICAL 
TABLES DURING EXECUTION OF ANOTHER MODULE (EG. MEMBER 
CHARGES AND PAYMENTS TABLES POSTED DURING PRINTING OF 
MEMBER STATEMENTS. ) 


THEREFORE, THE LESSOR*S STATEME TS eens olnekae © 
INVENTORY AND STATUS REPORT, THE MEMBER STATEMENTS, AND 
INSTRUCTOR STATEMENTS MUST BE POSPEDRER one loans 
MODULE'S OPERATION OR THE POSTING OF TABLES WILL BE 
INACCURATE. 


AFTER THE POSTINGS ARE COMPEETED SETHE Uae 4 Ties 
DIRECTED TO PERFORM A DATABASE SACK-UP AND REPACK 
INORDER FOR THE DATABASE TO PERFORM MORE EFFICIENT 


TABLES USED: INCOME, EAPENSE, EARNINGS, INC HIST, BAP HIS], Salesaoe 
BAL _JOUR, ACCT _PAY, AP _CHG, AP_PAID, APCGHIST, APPDHIST, 
INS_REC, MEM_FLT, FLT “REC, FUL Hisue A/CMAINT, MAINHIST, 
ACCT_ REC, CAP _ASET, MBR_ SUM 

FORMS USED: 


NONE (2 0) 
KAKKAKRKAAKKKAKAKAKKKAKKAKKAKKKAKRKAKKKAKKAKAKKAAKAKRRAKKRRAKKRKK KKK ) 


SET MESSAGES OFF 
OPEN EEYCLUB 
SET ERROR MESSAGES OFF 


*K(e- aot warning of necessary modules to run prior) 
NEWPAG 

WRITE "flit! WARNING !!!f!!" AT 3,30 

WRITE "ENSURE YOU HAVE COMPLETED:" AT So 

WRITE "LESSOR'S STATEMENT: Al 203i 

WRITE "THE AIRCRAFT INVENTORY AND STATUS REPORT" AT 12,15 

WRITE "THE MEMBERS! STATEMENTS" AT 14,15 

WRITE "THE INSTRUCTOR STATEMEI Reese, 15 

WRITE "BEFORE YOU EXECUTE THIS MODULE" ‘AT Toye 

WRITE "YOU NEED TWO FORMATED DISKS ALSO BEFORE PROCEEDING" AT 20718 
WRITE "DO YOU DESIRE ME TO BEGIN WORKING?(Y/N)" AT 22,20 


FILLING YOURANS sUSING Se al 2z02 
IF YOURANS = N THEN 
NEWPAGE 


WRITE “EXITING END-OF-THE-MONTH POSTING WITHOUT POSTING” “AT SOR 
A Ree "PRESS ANY KEY TO RETURN TO THE MENU eae, 22 
GOTO MONTHEND 

ENDIF 


Seen display to tell user operations have begun ) 

WRITE "Mate, I would like cream and sa EP Ss in my coffee" AT 5,15 

WRITE "What do you want in YOURS?!! 

WRITE "Why not take that well deserved coffee break while I work" AT 9,5 
WRITE "on the End-of-the-Month Transactions! AT 10,5 


*(-- global variables) 
SET VARIABLE VPOSTDAT TO .#DATE 
SET VARIABLE VAMT DOLLAR 
SET VARIABLE VMINAMT DOLLAR 
SET VARIABLE VCURBAL DOLLAR 
SET VARIABLE VPEUS. 1O.UEe 
SET VARIABLE VNINUS -lemer 
SET VARIABLE VHRS REAL 
SET VARIABLE VCOUNT INTEGER 
a POSTING ACCOUNTS PAYABLE ACCOUNTS) 
-- SRA BH GHEE all charges and payments to accounts) 
APPEND AP_CHG TO APTEMP 
APPEND AP_PAID TO APTEMP 
CHANGE CURRBAL TO 0 IN ACCT_PAY WHERE CURRBAL FAILS 
SET POINEDER #!l STATUS) FOR ACCIsraz 
WHILE STATUS1 = O THEN 
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SET VARIABLE CHARGED DOLLAR 
SET VARIABLE PAID DOLLAR 
SET VARIABLE TEMPNUM TO VENDNO IN #1 
SET VARIABLE VCURBAL TO CURRBAL IN #1 
COMPUTE PAID AS SUM PD:AMT FROM APTEMP WHERE VENDNO = .TEMPNUM 
IF PAID FAILS THEN 
gor VARIABLE PAID TO Q 
E F 
COMPUTE CHARGED AS SUM T:PRICE FROM APTEMP WHERE VENDNO = .TEMPNUM 
IF CHARGED FAILS THEN 
SET VARIABLE CHARGED TO 0 
ENDIF 
SET VARIABLE VCURBAL TO .VCURBAL + .CHARGED 
SET VARIABLE VCURBAL TO .VCURBAL - .PAID 
CHANGE CURRBAL TO .VCURBAL IN ACCT_PAY WHERE VENDNO = .TEMPNUM 
CHANGE POSTDATE TO .VPOSTDAT IN ACCT_PAY WHERE VENDNO = .TEMPNUM 
NEXT #1 STATUS1 ~~... 
ENDWHILE *(-- end of posting individual accounts payable account) 
*(-- move journal entries to histical tables) 
APPEND AP_CHG TO APCGHIST 
APPEND AP_PAID TO APPDHIST . 
*(--prepare accounts payable journal tables for next month) 
DELETE ROWS FROM AP_CHG WHERE VENDNO EXISTS 
DELETE ROWS FROM AP_PAID WHERE VENDNO EXISTS 
DELETE ROWS FROM APTEMP WHERE LIMIT = 10000 


*(* USER STATUS REPORT) 

NEWPAGE 

WRITE “ACCOUNTS PAYABLE ACCOUNTS POSTED" AT 10,24 
WRITE "WORKING ON BALANCE SHEET ACCOUNTS NOW" AT 15,21 


*(* POSTING BALANCE SHEET ACCOUNTS) 

SET VARIABLE VMBRBAL DOLLAR 

SET VARIABLE VLESBAL DOLLAR 

SET VARIABLE VLESOR TO "1211'! 

SET VARIABLE VMBRS TO "1210"! 

COMPUTE VMBRBAL AS SUM CURR_BAL FROM ACCT_REC WHERE MEM_NUM EXISTS 
IF VMBRBAL FAILS THEN 

ees VARIABLE VMBRBAL TO 0 

CHANGE BALANCE TO .VMBRBAL IN BAL_SHET WHERE ACCT_NUM = .VMBRS 
COMPUTE VLESBAL AS SUM CURR_BAL FROM ACCT_REC WHERE LESOR_NU EXISTS 
IF VLESBAL FAILS THEN 

ae VARIABLE VLESBAL TO Q 

E 

CHANGE BALANCE TO .VLESBAL IN BAL_SHET WHERE ACCT_NUM = .VLESOR 
CLEAR VLESOR 

CLEAR VMBRBAL 

CLEAR VLESBAL 

CLEAR VMBRS , 

*(=-- set var for capital asset accounts) 

SET VARIABLE VA/C TO "1650! 

SET VARIABLE VEQUIP TO '1651'! 

SET VARIABLE VA/CDEP TO "1750"! 

SET VARIABLE VEQDEP TO "1751" 

SET VARIABLE VASETAMT DOLLAR 

SET VARIABLE VDEPAMT DOLLAR 

*(* POSTING DEPRECIATION ENTERED BY MANAGER TO BAL_SHET) 

COMPUTE VASETAMT AS SUM INIT_CST FROM CAP_ASET WHERE ACCT_NUM = .VA/C 
IF VASETAMT FAILS THEN 

rn VARIABLE VASETAMT TO Q 

CHANGE BALANCE TO .VASETAMT IN BAL_SHET WHERE ACCT_NUM = .VA/C 
CLEAR VASETAMT 

COMPUTE VDEPAMT AS SUM ACC_DEP FROM CAP_ASSET WHERE ACCT_NUM = .VA/CDEP 
IF VDEPAMT FAILS THEN 

Papre VARIABLE VDEPAMT TO 0 

CHANGE BALANCE TO .VDEPAMT IN BAL_SHET WHERE ACCT_NUM = .VA/CDEP 


243 


CLEAR VDEPAMT 
CLEAR VA/C 
CLEAR VA/CDEP 
COMPUTE VASETAMT AS SUM INIT_CST FROM CAP_ASET WHERE ACCT_NUM = .VEQUIP 
IF VASETAMT FAILS THEN 
- at VARIABLE VASETAMT TO 0 
D 
CHANGE BALANCE TO .VASETAMT IN BAL_SHET WHERE ACCT_NUM = .VEQUIP 
CLEAR VASETAMT 
CLEAR VEQUIP 
COMPUTE VDEPAMT AS SUM ACC_DEP FROM CAP_ASET WHERE ACCT_NUM = .VEQDEP 
IF VDEPAMT FAILS THEN 
a ae VARIABLE VDEPAMT TO 0 
D 
CHANGE BALANCE TO .VDEPAMT IN BAL_SHET WHERE ACCT_NUM = .VEQDEP 
CLEAR VDEPAMT 
CLEAR VEQDEP 
CLEAR VAMT 
SET VARIABLE VAP_ACCT TO "2100" 
COMPUTE VAMT AS SUM CURRBAL FROM ACCT_PAY 
IF VAMT FAILS THEN 
SET VARIABLE VAMT TO 0 
ENDIF 
CHANGE BALANCE TO .VAMT IN BAL _SHET WHERE ACCT_NUM = .VAP_ACCT 
CLEAR VAP_ACCT 
CLEAR VAMT 
*(-- post all plus balance sheet journal entries to proper acct) 
SET POINTER #1 STATUS1 FOR BAL_SHET 
WHILE STATUS1 = 0 THEN 
CLEAR VMINAMT 
CLEAR VAMT 
CLEAR VCURBAL 
SET VARIABLE TEMPNUM TO ACCT_NUM IN #1 
SET VARIABLE VCURBAL TO BALANCE IN #1 
COMPUTE VAMT AS SUM DOL:AMT FROM BAL_JOUR WHERE ACCT_NUM = .TEMPNUM + 
AND TX:CODE = .VPLUS 
IF VAMT FAILS THEN 
SET VARIABLE VAMT TO 0 
ENDIF 
SET VARIABLE VCURBAL TO .VCURBAL + .VAMT 
CHANGE BALANCE TO .VCURBAL IN BAL_SHET WHERE ACCT_NUM = .TEMPNUM 
COMPUTE VMINAMT AS SUM DOL:AMT FROM BAL_JOUR WHERE ACCT_NUM EQ + 
TEMPNUM AND TX:CODE = .VMINUS 
IF VMINAMT FAILS THEN 
SET VARIABLE VMINAMT TO 0 
ENDIF 
SET VARIABLE VCURBAL TO .VCURBAL - .VMINAMT 
CHANGE BALANCE TO .VCURBAL IN BAL_SHET WHERE ACCT_NUM = .TEMPNUM 
CHANGE BAL:DATE TO .VPOSTDAT IN BAL_SHET WHERE ACCT_NUM = .TEMPNUM 
NEXT #1 STATUS1 
ENDWHILE *(--all balance sheet updated and new posting date) 
*(-- place month's journal entries to history ta 
APPEND BAL_JOUR TO JOURHIST 
R(-- pHee pare journal table for next month's transactions) 
eraee ROWS FROM BAL_JOUR WHERE ACCT_NUM EXISTS 


NEWPAGE 
WRITE "BALANCE SHEET ACCOUNTS POSTED" AT 10,25 
WRITE "NOW POSTING INCOME STATEMENT ACCOUNTS" AT Lone 1 


WRITE " XXXXX RARKK XX AM: AT Yiy2zs 
WRITE " X X x x Kee 18,25 
WRITE “ XXXX x x ie AL, 179,25 
WROTE X X XK AAT e20).25 

WRITE! X x RID AT 20 ZS 


X 
WRITE ' XXXX RKXAK x AX Ale 22,25 
*(* POST INCOME STATEMENT ACCOUNTS ) 


CHANGE BALANCE TO 0 IN EARNINGS WHERE BALANCE FAILS 
SET POINTER #1 STATUS1 FOR EARNINGS 
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WHILE STATUS1 = O THEN 

CLEAR VMINAMT 

CLEAR VAMT 

CLEAR VCURBAL 

SET VARIABLE VCURBAL TO BALANCE IN #1 

SET VARIABLE TEMPNUM TO ACCT_NUM IN #1 

COMPUTE VAMT AS SUM REV:AMT FROM INCOME WHERE ACCT_NUM = .TEMPNUM + 
AND TX:CODE = .VPLUS 

IF VAMT FAILS THEN 
SET VARIABLE VAMT TO 0 

ENDIF 

SET VARIABLE VCURBAL TO .VCURBAL + .VAMT 

CHANGE BALANCE TO .VCURBAL IN ZARNINGS WHERE ACCT_NUM = .TEMPNUM 

COMPUTE VMINAMT AS SUM REV:AMT FROM INCOME WHERE ACCT_NUM EQ + 
TEMPNUM AND T&A:CODE = .VMINUS 

IF VMINAMT FAILS THEN 
SET VARIABLE VMINAMT TO 0 

ENDIF 

SET VARIABLE VCURBAL TO .VCURBAL - .VMINAMT 

CHANGE BALANCE TO .VCURBAL IN EARNINGS WHERE ACCT_NUM = .TEMPNUM 

CHANGE BAL:DATE TO .VPOSTDAT IN EARNINGS WHERE ACCT_NUM = .TEMPNUM 

NEXT #1 STATUS] | 

ENDWHILE *(--all income statement updated and new posting date) 
*(-- POSTING EXPENSE ACCOUNT UPDATE) 


SET POINTER #2 STATUS2 FOR EARNINGS 
WHILE STATUS2 = O THEN 
CLEAR VMINAMT 
CLEAR VAMT 
CLEAR VCURBAL 
SET VARIABLE VCURBAL TO BALANCE IN #2 
SET VARIABLE TEMPNUM TO ACCT_NUM IN #2 
COMPUTE VAMT AS SUM EXP:AMT FROM EXPENSE WHERE ACCT_NUM = .TEMPNUM + 
AND TA:CODE = .VPLUS 
IF VAMT FAILS THEN 
SET VARIABLE VAMT TO 0 
ENDIF 
Sel VARIABLE VCURBAL TO .VCURBAL + .VAMT 
CHANGE BALANCE TO .VCURBAL IN EARNINGS WHERE ACCT_NUM = .TEMPNUM 
COMPUTE VMINAMT AS SUM EXP:AMT FROM EXPENSE WHERE ACCT_NUM EQ + 
TEMPNUM AND TX:CODE = .VMINUS 
IF VMINAMT FAILS THEN 
SE T VARIABLE VMINAMT TO 0 
ENDIF 
SET VARIABLE VCURBAL TO .VCURBAL - .VMINAMT 
CHANGE BALANCE TO .VCURBAL IN EARNINGS WHERE ACCT_NUM = .TEMPNUM 
CHANGE BAL:DATE TO .VPOSTDAT IN EARNINGS WHERE ACCT_NUM = .TEMPNUM 
NEXT #2 STATUS2 | 
ENDWHILE *(--all expenses updated and new posting date) 
*(-- transfer of journal entries to history tables) 
APPEND INCOME TO INC_HIST 
BEEEND EXPENSE TO EXP _HIST 
k(-- clear journal tables for next month's transactions) 
DELETE ROWS FROM INCOME WHERE ACCT_NUM EXISTS 
DELETE ROWS FROM EXPENSE WHERE ACCT_NUM EXISTS 


NEWPAGE 
WRITE "POSTING COMPLETE ON INCOME STATEMENT ACCOUNTS" AT 10,17 
WRITE "NOW WORKING ON FLIGHT HOURS" AT 15,27 


WRITE "XXXXXX RARKAK AX Re al Ly ao 
MEETE | a a a oem Gael Os 2. 
Welle |! a RARA ne Pie 9, 25 
Weaoe " a x el Cone S 

kere | a x a Ks Ake 25 
WRITE '' a RRKR a MWe A DT 2225 


*(* UPDATE FLIGHT HOURS) 
*(* A/C_HRS AND A/CMAINT HOURS WERE UPDATE DURING EXECUTION OF) 
*(* LES _STMT.CMD AND ACSTAT.CMD MODULES) 
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*(* A/C_HRS TRANSFERRED TO HOURHIST IN ACSTAT.CMD MODULE ) 
APPEND A/CMAINT TO MAINHIST 

DELETE ROWS FROM A/CMAINT WHERE A/C_NUM EXISTS 

APPEND PET SRE CG LO yh mae oT 

*(-- compute cumulative flt_hrs by category and faa_cert ) 
SET VARIABLE VSDCT INTEGER 


SET VARIABLE 
SET VARIABLE 
SET VARIABLE 
SET VARIABLE 


VPRCT INTEGER 
VCMCT INTEGER 
WV CFCT ENTEGER 
VTOTCLl INTEGER 


SET POINTER #1 STATUS1 FOR MBR_SUM 
WHILE STATUS1 O THEN 


CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 


VSDCT 
VPRCT 
VCMCT 
Verer 
VSHOURS 
VPHOURS 
VCHOURS 
VCFHOURS 
VSDHRS 
VPRHRS 
VCMHRS 
VCFHRS 
VIOLET 
VTOTNO 
VTOTHRS 
VEOLP EL 


SET VARIABLE 
SET VARIABLE 
SET VARIABLE 
SET VARIABLE 
SET VARIABLE 
SET VARIABLE 
SET VARIABLE 
COMPUTE VSDCT 


TEMPCAT TO CATEGORY IN #1 
VSDHRS TO STUDHRS IN #1 
VPRHRS TO PRIVHRS IN #1 
VCMHRS TO COMMHRS IN #1 
VCFHRS TO CFIHRS IN #1 
VTOTCT TO TOTCOUNT IN #1 
VTOTHRS TO TOTHOURS IN #1 


AS COUNT FAA_CERT 


FROM MEM_REC WHERE FAA_CERT 


AND CATEGORY = .TEMPCAT 
TF evsDCT FALESs THEN 

SET. VARIABLESVSDCT sTOe0 
ENDIF 


COMPUTE VPRCT AS COUNT FAA_CERT FROM MEM_REG WoERE DAALeCERL 


AND CATEGORY = .TEMPCAT 
IF VPRCT FAILS THEN 

SET VARIABLE VPRCT TO 0 
ENDIF 


COMPUTE VCMCT AS COUNT FAA_CERT FROM MEM_REC WHERE FAA_CERT 


AND CATEGORY = .TEMPCAT 
IF VCMCT FAILS THEN 

SET VARIABLE VCMCT TO 0 
ENDIF 


COMPUTE VCFCT AS COUNT FAA_CERT FROM MEM_REC WHERE FAA_CERT 
AT 


AND CATEGORY = .TEMPCA 
IF VCRCT FATES Maen 

SET VARIABLE VCFCT TO 0 
ENDIF 


COMPUTE VSHOURS AS SUMsFLT_HRS FROM FLT RE GeyWeE Deh a aeer ra 
AND CATEGORY = .TEMPCAT 

IF VSHOURS FAILS THEN 

ae VARIABLE VSHOURS TO 0 

COMPUTE VPHOURS AS SUM FLT_HRS FROMSELTISREC WHERE@r AA CERT 
AND CATEGORY = .TEMPCAT 

IF VPHOURS FAILS THEN 
SET VARIABLE VPHOURS TO 0 

ENDIF 

COMPUTE VCHOURS AS SUM FLT_HRS 
AND CATEGORY = .TEMPCAT 

IF VCHOURS FAILS THEN 


FROM FLT_REC WHERE FAA_CERT 
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SLuUDes 


PRIV=s 


COMM + 


CRIM 


STUDS 


PRIVGa 


COMM + 


SET VARIABLE VCHOURS TO Q 

ENDIF 

GOMEUTE VCFHOUR AS SUM FLT_HRS 
AND CATEGORY = .TEMPCAT 

IF VCFHOUR FAILS THEN 
SET VARIABLE VCFHOUR TO 0 


PROM? PFLI_REC WHERE FAA CERT = CFI + 


ENDIF 


SET 
SET 
Set 
SET 
Sa. 
Slay 
Sar 
sal 
Sel 
Sa. 
Se. 
SET 
Sa 
Syl 
SET 
SET 


VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 


- VSDHRS 
. VPRHRS 


- VSHOURS 
. VPHOURS 
. VCHOURS 
» VCFHOUR 


VSDHRS TO 
VPRHRS TO 
VGnnRS TO™.VCMARS 
VGpmns TO -VERHRS 
NUM TO .VSDCT 
HUNZ iO... VERCT 
HUie lO GNUML + .NUMZ 

NUM4 TO .NUM3 + .VCMCT 

VIOTNO TO .NUM4 + .VCFCT 
VROrer TO]. VIOTCT ae. VIOINO 
HRS1 TO .VSDHRS 

HRo2z ITO <VPRHRS 

Heese lO GeHRol + .HRSZ 

Hess 20 HRoS + .VCMHRS 
VIOTFLT TO .HRS4 + .VCFHRS 
ViClnns LO .VIGTHRS + .VIOTELT 


++++ 


CHANGE SUMDATE TO .VPOSTDAT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE STUDCT TO .VSDCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE STUDHRS TO .VSDHRS IN MBR_SUM WHERE CATEGORY = 
CHANGE PRIVCT TO .VPRCT IN MBR_SUM WHERE CATEGORY = 
CHANGE PRIVHRS TO .VPRHRS IN MBR_SUM WHERE CATEGORY = 
CHANGE COMMCT TO .VCMCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
@reriGe COMMARS TO .VCMHRS IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE CFICT TO .VCFCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE CFIHRS TO .VCFHRS IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE TOTCOUNT TO .VTOTCT IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
CHANGE TOTHOURS TO .VTOTHRS IN MBR_SUM WHERE CATEGORY = .TEMPCAT 
NEXT #1 STATUS1 . 

ENDWHILE *(* posting cumulative flight hours by category and faa_cert) 


*(e-prepare table for next month transactions) 


DELETE ROWS FROM FLT_REC WHERE LIMIT = 10000 

NEWPAGE 

eee POSTING COMPLETED" AT 10,30 

WRITE "TO CLEAN UP THE DATABASE FROM ALL THE DELETIONS AND" AT 15,14 
fee MOVES, INSERT THE FIRST FORMATED DISK LABELED FOR THE" AT 16,13 
Peete NEXT MONTH TO MAKE A BACKUP COPY OF THE DATABASE AND" AT 17,12 
femme REPACK THE DISK TO INCREASE EFFICIENCY." AT 18,14 

eee "PRESS ANY KEY ONCE YOU HAVE A FORMATED DISK IN THE" AT 20,14 
ae "'A' DISK DRIVE AND WE WILL CONTINUE." AT 21,22 


Ee set messages on inorder to tell if error in copying database) 
*(-- such as full disk, etc) 
Ben ERROR MESSAGES ON 
SET ERR VAR ERV 
COPY FLYCLUB1.RBS A: 
meOry FLYCLUB3.RBS A: 
NEWPAGE 
fetes “PLACE NEXT FORMATED DISK IN DRIVE TO COMPLETE COPY" AT 10,10 
Des eae ose yY TOVCONTINUE” AT 15,25 
eery FLYCLUBZ.RBS A: 
IF ERV = 0 THEN 
WRITE "PACKING DATABASE AT THIS TIME"! 
PACK FLYCLUB 
IF ERV = O THEN 
NEWPAGE 
WRITE "PLACE FIRST DATABASE DISK IN DRIVE NOW" 
eee PTPRbooeANY KEY TO CONTINUE" AT 15,25 
COry PEYCLUBI.RBS A: 


AT 20325 


ae Toe Zo 


oe 


COPY FLYCLUBGIRES A: 
WRITE "PLACE SECOND DATABASE DISK IN DRIVE NOW" AT 20,20 
CaaeE "PRESS ANY KEY TO CONTINUE Seale 25 
A 
COPY FLYCLUBZ RES eA; 
ENDIe 
BLSE 
NEWPAGE 
WRITE "TRY ANOTHER DISK, UNABLE TO BACKUP DATABASE" AT 15,10 
WRITE "PRESS ANY KEY TO CONTINUE" AT 17,14 
PAUSE 
ENDIE 


NEWPAGE 

WRITE “THE PACK. IS COMPLETE (Al gs 

WRITE "THE DISKS COPIED NOW CONTAIN A BACKUP OF THE DATABASE" AT 7,10 
WRITE "PRESS ANY KEY TO RETURN TO MENU" AT 9,24 

PAUSE 


LABEL MONTHEND 

SET MESSAGES ON 

SET ERROR MESSAGES ON 

RETURN 

*(* END OF END_MON.CMD ) 

$ COMMAND 

BACKPACK 

KR ( AAKAAAKAKAKKKAKKAKKKKAKAKKKAKKKRKKA AAA AAA RRKRKKKKAARKKRRKKKKKAAAKRKRKRKK KK 
PROGRAM: BACKPACK. CMD 

AUTHOR: J. M. GRAHAM 

DATE: NOV 1986 VER. 1.8 

DESCRIPTION: CREATES A BACKUP OF THE DATABASE AND REPACKS IT 


11) 
KRHA AHHH AKA IHH HATO AIA IAA RA OTe zx ) 


SET JIESSAGES 2 Orr 
OPEN FLYCLUB 
SET ERROR MESssace ogo ur 


NEWPAGE 
WRITE "INSERT A FORMATTED DISK IN DRIVE A" AT 5,10 
Seqee "PRESS ANY KEY TO CONTINUE" AT 7,14 
A 
ao set messages on inorder to tell if error in copying database) 
*A(e-- such as fu isk, etc 
SET ERROR MESSAGES ON 
SET ERR VAR ERV 
COPY FLYCLUB1.RBS A: 
COPY FLYCLUB3.RBS A: 
NEWPAGE 
WRITE "PLACE NEXT FORMATED DISK IN DRIVE TO COMPLETE COPY" AT 10,10 
BNaee "PRESS ANZ KEL LO CONTINUE” Aeron co 
A 
COPY FLYCLUBZ2REs A: 
IF ERV = O THEN 
WRITE "PACKING DATABASE AT THIS TIME" AT 20,25 
PACK FLYCLUB 
IF ERV = O THEN 
NEWPAGE 
WRITE "PLACE FIRST DATABASE DISK IN DRIVE NOW" AT 10,20 
WRITE "PRESS ANY KEY TO CONTINUE" AT 15,25 
PAUSE 
COPY FLYCLUBI1 .RBS@a:: 
COPY FLYCLUB3.RBS A: 
WRITE "PLACE SECOND DATABASE DISK IN DRIVE NOW" AT 20,20 
WRITE "PRESS ANY KEY TO CONTINUE" AT 22,25 


PAUSE 
COPY FLYCLUB2.RBS A: 


END 
ELSE 
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NEWPAGE 
WRITE "TRY ANOTHER DISK, UNABLE TO BACKUP DATABASE" AT 15,10 
WRITE "PRESS ANY KEY TO CONTINUE" AT 17,14 


NEWPAGE 

Pies, “THE PACK IS COMPLETE, AT 5,25 

WRITE "THE DISKS COPIED NOW CONTAIN A BACKUP OF THE DATABASE" AT 7,10 
WRITE "PRESS ANY KEY TO CONTINUE" AT 9,20 

PAUSE 


LABEL SACKEND 

SET MESSAGES ON 
RETURN 

*(* END BACKPACK.CMD ) 


S COMMAND 

MEMSTMT 

* ( KRKKKKAKAKKKKKKKKKKKRKRKKKRKKKKRKKKKRKKKKRKRKKRKRRKKRKRKRRKEKKRRRKKRAKRKKRRKEKRKKARKAKKKK 

PROGRAM : MEMSTMT .CMD 

AUTHOR: J. M. GRAHAM 

DATE : JAN 1987 VER liz 

Deoenirt ION: irs NODULE COMPUTES THE ACTIVE MEMBERS’ STATEMENT 
CHARGES, PRINIS THE MEMBERS' STATEMENTS, UPDATES THE 
CLUB'S ACCOUNT RECEIVABLE RECORDS, AND POST ALL TABLES 
AND PREPARES FOR THE NEW MONTHLY TRANSACTIONS. 


TABLES USED: MEMERE Gye MeGHG, MEMNSPAY, CHGHIST, PAYHIST, 
BILLTEMP, ACCT_REC 
FORMS USED: NONE 


REPORTS USED: MEM_BILL (1 4) 
KAKKAAKKARKKRKKK KAKA ARKKAAKKAKAARKKAKKAKAKKKAKK RAR AKAAKAKKAKRRRR AAX KA ) 


NEWPAGE 

WRITE "STATEMENTS ARE TO BE PRINTED ONCE A MONTH ONLY." AT 5,12 
WRITE "REOCCURRING CHARGES MUST BE DONE BEFORE BILLING." AT 7,10 
ioe ENoURE A BACKUP COPY OF THE DATABASE HAS BEEN MADE." AT 9,10 


Pree ENSURE YOUR PRINTER IS READY." AT 11,15 
WRITE "DO YOU WANT TO Peco ES " AT eh CY 
FILLIN YOURANS USING " " AT 


IF YOURANS = N THEN 
GOTO BAILOUT 


ENDIF 

NEWPAGE 

WRITE "PREPARING MEMBERS' STATEMENTS" AT 5,25 
WRITE ''----------------------------- AT 6,25 


WRITE WENTER: et Ole 
feere "1 - PREPARE/ PRINT ALL MEMBERS! STATEMENTS" AT 10,10 
WRITE "2 = PREPARE/PRINT ONE MEMBER STATEMENT**SPECIAL CASEX*" AT 2710 
fee 3S = EXTT ... RETURN TO END-OF-THE-MONTH MENU" AT 14,10 
bees 'CHOICE:" AT 16,10 
FILLIN YOURCH USING " " AT ils), 218) 
IF YOURCH = 1 THEN 
GOTO NORMBILL 
ENDIF 
IF YOURCH = 2 THEN 
GOTO ONEBILL 
ENDIF 
EieeOURCH = 3 THEN 
GOTO BAILOUT 
ENDIF 


LABEL NORMBILL 

NEWPAGE 

heuus, ENSURE PRINTER IS READY.'' AT 10,20 

peers “WORKING ON MEMBERS' STATEMENTS" AT 15,15 
SET MESSAGES OFF 


Ze 


OPEN FLYCLUB 
SET ERROR MESSAGES OFF 


Saeed account updates in preparation for this month's billing ) 


First, shift back Current, 30, 60, and 90 day balances) 
ASSIGN BAL:90 TO BAL:90 + BAL: 60 IN ACCT_REC 
ASSIGN BAL:60 TO BAL:30 + $0.00 IN ACCT _REC 
ASSIGN SUM60+90 TO BAL:60 + BAL:90 IN ACCT_REC 
ASSIGN BAL:30 TO CURR_BAL - SUM60+90 IN ACCT_REC 
ASSIGN BAL_FWD TO CURR_BAL + $0.00 IN ACCT_REC 
ASSIGN CURR_BAL TO O IN ACCT_REC WHERE MEM_NUM EXISTS 
ASSIGN BALFWD30 TO BAL:30 + $0.00 IN ACCT_REC 
ASSIGN BALFWD60 TO BAL:50 + $0.00 IN ACCT_REC 
ASSIGN BALFWD90 TO BAL:30 + 3000 5TliieAce? re 


*(-=- Establish BILLTEMP table) 

DELETE ROWS FROM BILLTEMP WHERE LIMIT = 10000 
APPEND MEM_CHG TO BILLTEMP 

APPEND MEM_PAY TO BILLTEMP 


* (= ee otcheelGo rocess aymenis received this billing period. ) 


SET POINTER #1 eae ust OR MEMS 
WHILE STATUS1 = 
SET ‘VARIABLE Sateen DOLLAR 
SET VARIABLE PAID DOLLAR 
SET eee eee TO MEM_NUM IN #1 
K(-- eee Aa al Sa with O's ) 
CHANGE BAL TO IN ACCT_REC WHERE BAL:90 FAILS 
CHANGE BAL: ‘80 © 0 IN ACCT_REC WHERE BAL:60 FAILS 
CHANGE BAL:30 TO O IN ACCT_REC WHERE BAL::0 FAILS 
CHANGE CURR_BAL TO Q IN ACCT_REC WHERE CURR_BAL FAILS 
CHANGE BALFWD30 TO O IN ACCT_REC WHERE BALFWD30 FAILS 
CHANGE BALFWD60 TO O IN ACCT_REC WHERE BALFWD60 FAILS 
CHANGE BALFWD90 TO O IN ACCT_REC WHERE BALFWD90 FAILS 


*(-- Establish variables to work with) 
SET VARIABLE VBAL:90 TO BAL:90 IN ACCT_REC WHERE MEM_NUM 
SET VARIABLE VBAL:60 TO BAL:60 IN ACCT ~REC WHERE MEM_NUM 
SET VARIABLE VBAL:30 TO BAL:30 IN ACCT ~REC WHERE MEM _NUM 
SET VARIABLE VCUR_BAL TO CURR_BAL IN ACCT _REC WHERE MEM_NUM = 
COMPUTE PAID AS SUM PAYMENTS FROM BILLTEMP WHERE MEM_NUM = 
IF PAID FAILS THEN 
SET VAR PAID TO $0.00 
ENDIF 
COMPUTE CHARGED AS SUM CHARGES FROM BILLTEMP WHERE MEM_NUM = 


*(-- Apply payments to past due balances ) 
TE PRID >= YVBAL :90 THEN 
SET VAR PAID aa /PAID - .VBAL:90 
SET VAR VBAL:90 TO Q 
IF PAID >= .VBAL:60 THEN 
SET VAR PAID TO .PAID - .VBAL:60 
SET VAR VBAL:60 TO Q 
IF PAID >= .VBAL:30 THEN 
SET VAR PAID TO .PAID - .VBAL:30 
SET VAR VBAL:30 TO $0.00 


SET VAR VCUR_BAL TO .VBAL:30 + .CHARGED - .PAID 


ELSE *(-- Past due 30 balance > payment ) 
SET VAR VBAL:30 TO .VBAL:30 - .PAID 
SET VAR PAID TO 0 
SET VAR VCUR_BAL TO .VBAL:60 + .VBAL:30 
SET VAR VCUR_BAL TO .VCUR_BAL + .CHARGED 
ENDIF *(-- Past due 30 balance > payment ) 
ELSE *(-- Past due 60 balance > Payment ) 
SET VAR VBAL:60 TO .VBAL:60 - 
SET VAR PAID TO Q 
SET VAR VCUR_BAL TO .VBAL:60 + .VBAL:30 
SET VAR VCUR_BAL TO .VCUR_BAL + .CHARGED 
ENDIF *(-- Past due 60 balance > payment ) 
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. TEMPNUM1 

- TEMPNGT 
. TEMPNUML 
. TEMPNUM1 
. TEMPNUML 


. LEMPNUME 


ELSE *(-- Past due 90 balance > payment ) 
SET VAR VBAL:90 TO .VBAL:90 - ALD 
SET VAR PAID TO O 
SET VAR VCUR_BAL TO .VBAL:90 + .VBAL:60 
SET VAR VCUR_BAL TO .VCUR_BAL + .VBAL:30 
SET VAR VCUR_ BAL TO .VCUR_BAL + .CHARGED 
ENDIF *(-- past due 90 balance > payment ) 


*(-- Enter new values in member's record ) 


CHANGE BAL:90 TO .VBAL:90 IN ACCT_REC WHERE MEM_NUM = .TEMPNUM1 
CHANGE BAL:60 TO .VBAL:60 IN ACCT_REC WHERE MEM_NUM = .TEMPNUM1 
CHANGE BAL:30 TO .VBAL:30 IN ACCT_REC WHERE MEM_NUM = .TEMPNUM1 


CHANGE CURR_BAL TO .VCUR_BAL IN ACCT_REC WHERE MEM_NUM = .TEMPNUM1 
NEXT #1 STATUS1 | | 
ENDWHILE *(-- loop to update payments this period ) 


*(-- Print member statements) 
OUTPUT PRINTER 
SaanuLEL 
SET POINTER #2 STATUS2 FOR MEM_REC 
WHILE STATUS2 = O THEN 
SET VARIABLE TEMPNUM2 TO MEM_NUM IN #2 
PRINT MEM_BILL SORTED BY L:NAME F:NAME WHERE MEM_NUM EQ .GEMPNUMZ2 
NEXT #2 STATUS2 
ENDWHILE *(-- Print member statements ) 
OUTPUT SCREEN 
san NULL -0O- 


*(-- Move transactions to history tables) 
APPEND MEM_CHG TO CHGHIST 
APPEND MEM_ PAY TO PAYHIST 


*(-- Prepare tables for next month's entries) 
DELETE ROWS FROM MEM_CHG WHERE MEM_NUM EXISTS 
DELETE ROWS FROM MEM_PAY WHERE MEM_NUM EXISTS 
*(-- DELETE ROWS FROM MEM_CHG WHERE DESCRIPT = DUES ) 


*(-- Updates complete) 


NEWPAGE 

WRITE "Monthl Ba tiang and Accounts eee Complete." AT 7,10 
Weegee PRESS KEY TO RETURN TO MENU." AT 10,15 

PAUSE 

GOTO BAILOUT a? | 

*(== end of normal billing subroutine ) 


LABEL ONEBILL 

NEWPAGE 

SET MESSAGES OFF 

OPEN FLYCLUB 

SET ERROR MESSAGES OFF 

WRITE "PREPARING AND PRINTING ONE MEMBER'S STATEMENT" AT 3,15 

WRITE "2222 222-220 nn on nn nn eee AT 415 

WRITE 19938 ~> SPECIAL CASE BILLING !! %%%%%" AT 7,20 

WRITE "IT IS ASSUMED THAT THE MEMBER IS LEAVING IN MID MONTH" AT 9,5 
WRITE "HIS/HER MEMBER STATUS WILL BE CHANGED TO NONACTIVE' AT 10,5 
WRITE "THIS WAY HE/SHE WILL NOT BE DOUBLED CHARGED FOR DUES" AT 11,5 


Wie LHEREPORE, YOU WILL NEED TO PROVIDE SOME DATA: " AT 13,10 
LABEL GETDATA 

FILLIN VMEMNUM USING "BILLING MEMBER NUMBER - " AT 15,20 

eee VosNAME USING “MEMBER'S LAST NAME IS - " AT 17,20 


SET VARIABLE VDUECHG DOLLAR 
PeeeltieVDUECHG USING "AMOUNT OF DUES TO BE CHARGED IS - S$" AT 19,20 
SET POINTER #1 STATUS1 FOR MEM_REC WHERE MEM_NUM EQ .VMEMNUM AND + 
L:NAME EQ .VL:NAME 
IF STATUS1 <> 0 THEN 
WRITE "NO SUCH MEMBER'S ACCOUNT" AT 21,20 
ee "PRESS ANY KEY TO REENTER DATA" AT 22,15 
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NEWPAGE 

CLEAR VMEMNUM 

CLEAR VL:NAME 

CLEAR VDUECHG 

GOTO GETDATA 
ENDIF 


NEWPAGE 
WRITE "ENSURE PRINTER Ts READY. got eee ce 
WRITE "WORKING ON MEMBERS’ STATEMENTS AT 57 8> 


A ee account updates in peepee ion for this month's billing ) 
*(First, shift back Current, 30, 60, and 90 day balances) 

ASSIGN BAL:90 TO BAL:90 + BAL:60 IN ACCT_REC WHERE MEM_NUM EQ .VMEMNUM 
ASSIGN BAL:60 TO BAL:30 + $0.00 IN ACCT_REC WHERE MEM_NUM EQ .VMEMNUM 


ASSIGN SUM60+90 TO BAL:60 + BAL:90 IN ACCT_REC WHERE MEM_NUM = .VMEMNUM 
ASSIGN BAL:30 TO CURR_BAL-SUM60+90 IN ACCT_REC WHERE MEM_NUM = .VMEMNUM 
ASSIGN BAL_FWD TO CURR_BAL + $0.00 IN ACCT_REC WHERE MEM_NUM = .VMEMNUM 
ASSIGN CURR_BAL TO 0 IN ACCT_REC WHERE MEM_NUM WHERE MEM_NUM = .VMEMNUM 
ASSIGN BALFWD30 TO BAL:30 + $0.00 IN ACCT_REC WHERE MEM_NUM = .VMEMNUM 


ASSIGN BALFWD60 TO BAL:60 + $0.00 IN ACCT_REC WHERE MEM_NUM = .VMEMNUM 
ASSIGN BALFWD90 TO BAL:90 + $0.00 IN ACCT_REC WHERE MEM_NUM = .VMEMNUM 


*(-- charging dues to member leaving in mid month) 

SET VARIABLE VACCTNUM TO ''8100"' 

SET VARIABLE VCHARGES DOLLAR 

SET VARIABLE VTRANDAT TO .#DATE 

SET VARIABLE VCHARGES TO .VDUECHG 

LOAD MEM_CHG USING MEM_NUM TRANDATE CHARGES DESCRIPT 
~VMEMNUM .VTRANDAT .VCHARGES DUES 


END 

*x(-- post income from dues of member leaving midmonth) 
LOAD INCOME 

chip’ ieee DUES .VCHARGES .VTX:DATE P 


*(-- Establish BILLTEMP table) 

DELETE ROWS FROM BILLTEMP WHERE LIMIT = 10000 

APPEND MEM_CHG TO BILLTEMP WHERE MEM_NUM EQ .VMEMNUM 
APPEND MEM_PAY TO BILLTEMP WHERE MEM_NUM EQ .VMEMNUM 


k(-- Establish me to process payments received this billing period.) 
SET POINTER #2 STATUS2 FOR MEM_REC WHERE MEM_NUM EQ .VMEMNUM 
WHILE STATUS2Z = O THEN 
SET VARIABLE CHARGED DOLLAR 
SET VARIABLE PAID DOLLAR 
SET VARIABLE TEMPNUM2 TO MEM_NUM IN #2 
*k(-- Beetace all nulls with O's ) 
CHANGE BAL:90 TO O IN ACCT_REC WHERE BAL:90 FAILS 
CHANGE BAL:60 TO O IN ACCT_REC WHERE BAL:60 FAILS 
CHANGE BAL:30 TO O IN ACCT_REC WHERE BAL:30 FAILS 
CHANGE CURR_BAL TO 0 IN ACCT_REC WHERE CURR_BAL FAILS 
CHANGE BALFWD30 TO O IN ACCT_REC WHERE BALFWD30 FAILS 
CHANGE BALFWD60 TO O IN ACCT_REC WHERE BALFWD60 FAILS 
CHANGE BALFWD90 TO O IN ACCT_REC WHERE BALFWD90 FAILS 


*(-- Establish variables to work with) 


SET VARIABLE VBAL:90 TO BAL:90 IN ACCT_REC WHERE MEM_NUM = .TEMPNUM2 
SET VARIABLE VBAL:60 TO BAL:60 IN ACCT_REC WHERE MEM_NUM = .TEMPNUMZ 
SET VARIABLE VBAL:30 TO BAL:30 IN ACCT_REC WHERE MEM_NUM = .TEMPNUMZ 


SET VARIABLE VCUR_BAL TO CURR_BAL IN ACCT_REC WHERE MEM_NUM = .TEMPNUMZ2 
COMPUTE PAID AS SUM PAYMENTS FROM BILLTEMP WHERE MEM_NUM = .TEMPNUM2 
IF PAID FAILS THEN 

SET VAR PAID TO $0.00 


ENDIF 
COMPUTE CHARGED AS SUM CHARGES FROM BILLTEMP WHERE MEM_NUM = .TEMPNUMZ 


*(-- Apply payments to past due balances ) 
IF PAID >= .VBAL:90 THEN 


oe 


SEE VAR EAID TO .PAID - .VBAL:90 
SET VAR VBAL:90 TO 0 
IF PAID >= .VBAL:60 THEN 
SET VAR PAID TO .PAID - .VBAL:60 
SET VAR VBAL:60 TO 0 
IF PAID >= .VBAL:30 THEN 
SET VAR PAID TO .PAID - .VBAL:30 
SET VAR VBAL:30 TO $0.00 
SET VAR VCUR_BAL TO .VBAL:30 + .CHARGED - .PAID 
ELSE %*(-- Past due 30 balance > payment ) 
SET VAR VBAL:30 TO .VBAL:30 - .PAID 
SET VAR PAID TO 0 
SET VAR VCUR_BAL TO .VBAL:60 + .VBAL:30 
SET VAR VCUR_BAL TO .VCUR_BAL + .CHARGED 
ENDIF *(-- Past due 30 balance > paynent ) 
ELSE *(-- Past due 60 balance > Sl ae 
SET VAR VBAL:60 TO .VBAL:60 - 
SET VAR PAID TO 0 
SET VAR VCUR_BAL TO .VBAL:60 + .VBAL:30 
SET VAR VCUR_BAL TO .VCUR_BAL + aera 
ENDIF *(-- Past due 60 balance > Re ment 
ELSE *X(-- Past due 90 balance > spaymen \ 
SET VAR VBAL:90 TO .VBAL:90 - AID 
SET VAR PAID TO 0 
SET VAR VCUR_BAL TO .VBAL:90 + .VBAL:60 
SET VAR VCUR_BAL TO .VCUR_BAL + .VBAL:30 
SET VAR VCUR_BAL TO .VCUR_BAL + .CHARGED 
ENDIF *(-- past due 90 balance > payment ) 


*(-- Enter new values in member's record ) 
CHANGE BAL:90 TO .VBAL:90 IN ACCT_REC WHERE MEM_NUM » TEMPNUM2 
CHANGE BAL:60 TO .VBAL:60 IN ACCT_REC WHERE MEM_NUM > (EMENUMZ 
CHANGE BAL:30 TO .VBAL: 30 IN ACCT_REC WHERE MEM_NUM = .TEMPNUM2 
CHANGE CURR_BAL TO .VCUR_BAL IN ACCT_REC WHERE MEM_NUM = .TEMPNUM2 
NEXT #2 STATUS2 | 
ENDWHILE *(-- loop to update payments this period ) 


ou 


*(-- Print member statements) 
OUTPUT PRINTER 
Seu LL " 

PRINT MEM_BILL WHERE MEM_NUM EQ .TEMPNUMZ2 
OUTPUT SCREEN 

*(-- end of printing member's statement) 
SEL NULL -0O- 


*(-- Move transactions to history tables) 
APPEND MEM_CHG TO CHGHIST WHERE MEM_NUM EQ .VMEMNUM 
APPEND MEM_PAY TO PAYHIST WHERE MEM_NUM EQ .VMEMNUM 


*x(-- Remove member's data from tables so not to double billing) 
SET VARIABLE .VNONACT TO "N' x(-- now inactive membership) 
CHANGE MEM_STAT TO .VNONACT IN MEM_REC WHERE MEM_NUM EQ .VMEMNUM 
DELETE ROWS FROM MEM_ CHG WHERE MEM_NUM EQ . VMEMNUM 

DELETE ROWS FROM MEM_PAY WHERE MEM_NUM EQ .VMEMNUM 

*(-- DELETE ROWS FROM MEM_CHG WHERE DESCRIPT = DUES ) 


NEWPAGE 

WRITE "SPEICAL BILLING AND ACCOUNT UPDATE COMPLETED" AT 10,10 
eee "PRESS ANY KEY TO RETURN TO MENU" AT 15,15 

*(-- Updates complete) 

LABEL BAILOUT 

ean MESSAGES ON 

SET ERROR MESSAGES ON 

RETURN 

*”(*X END OF MEMSTMT.CMD ) 

SCOMMAND 


INSTSTMT 
K (AAKKAAKKAAAKKKAKKKKAKKAK KKK AKAKKAKKRAKKAAKKKARAKKRAKKRK KK RAK KRRRKARKR A 


228 


PROGRAM : INSTSTMT.CMD 

AUTHOR: J. M. GRAHAM 

DATE: JAN 1987 

DESCRIPTION: COMPUTES AND PRINTS INSTRUCTOR STATEMENTS AND UPDATES 
THE INSTRUCTOR TABLES FOR THE END OF THE MONTH. 


TABLES USED:  INST_REC; INSt@erst 
FORMS USED: NONE 


REPORTS USED: INSTSTMT (11) 
KAKKKAKKAKKAKKKKAKKAKAKKKKKAKKAK AK KKK AKAAKKAKKAAAKAAKAKKAKKAKAAKKAAKKAKRAKZ ) 


NEWPAGE 
WRITE "STATEMENTS ARE TO BE PRINTED ONCE A MONTH ONLY." AT 5,12 
WRITE "MONTHLY UPDATES ARE AUTOMATICALLY PERFORMED." AT 7,13 
WRITE "ENSURE A BACKUP COPY OF THE DATABASE HAS 3EEN MADE." AT 9,19 
WRITE "DO. YOU WANT TO PRe@ebaD Cs Y Atel pele 
PILLIN YOURANS USING Sissel 0 
IF YOURANS = N THEN 
GOTO BAILOUT 
ENDIF 


NEWPAGE 

WRITE "ENSURE PRINTER [5 READS wnt eoeee 

eee "PRESS ANY KEY TO CONTINUE." AT 15, 20 
AUS 


NEWPAGE 

WRITE "WORKING ON INSTRUCTOR STATEMENTS" AT 10,15 
SET MESSAGES OFF 

OPEN FLYCLUB 

SET ERROR MESSAGES OFF 


*(-- Print instructor statements ) 
OUTPUT PRINTER 
SET NuE te" 
SET POINTER #1 STATUS1 FOR MEM_REC SORTED BY L:NAME F:NAME WHERE + 
INSTSNUM EXALSTS 
WHILE STATUSI = O THEN 
SET VARIABLE TEMPNUM1 TO INST_NUM IN #1 
PRINT INSTSTMT WHERE INST _NUM © = .TEMPNUM1L 
NEXT #1 STATUS1 
ENDWHILE *(-- Print instructor statements) 
OUTPUT SCREEN 
SET NULL -0- 


*(-- Move transactions to DAY table) 
APPEND INST_REC TOsINStHESE 


*(-- Prepare table for next month's entries) 
DELETE ROWS FROM INST_REC WHERE INST_NUM EXISTS 
x(-- Updates complete) 


NEWPAGE 
WRITE (ooo ee Instructor Statements Complete." AT 7,10 
aioe SORE SS KEY TO RETURN TO MENU." AT 10,15 

SE 


LABEL BAILOUT 
SET MESSAGES OW 
SET ERROR MESSAGES ON 
RETURN 
*(* END OF INSTSTMT.CMD ) 
S COMMAND 


M 
f (RERRARARA ARH RARRRIRHARAR RR RERER RRA A AIRES TIER TRC 
PROGRAM : EBSsas LMT CHP 
AUTHOR: J. M. GRAHAM 
DATE : JAN 1987 VER 2 
DESCRIPTION: THIS MODULE COMPUTES AND PRINTS THE LESSOR'S STATEMENTS. 
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THE A/C_HRS AND A/CMAINT TABLES MUST HAVE BEEN KEPT UP 
TO DATE THROUGH THE MONTH. THE MANAGER SHOULD PREPARE 
THE A/C STATUS REPORT AFTER PRINTING THE LESSOR'S 
STATEMENTS TO ENSURE PROPER UPDATE OF A/C HOURS. 


TABLES USED: LES_ACCT, A/C_REC, A/C_HRS, A/CMAINT 


Gent USED: NONE (1 >) 
KAKKKKKKKKAKKAKKKAKEAKAKKKAAKRKARARARARKRRAKAKKRARRAARRAKKRRAKRARRRRRR AAKKKA ) 


ee MESSAGES OFF 
OPEN FLYCLUB 
ee 2RROR MESSAGES OFF 


NEWPAGE 
Welle "STATEMENTS ARE TO BE PRINTED ONCE A MONTH ONLY." AT 5,12 
WRITE "ENSURE THE AIRCRAFT HOURS AND MAINTENANCE RECORDS ARE" AT 7,8 
fees “UPDATED PRIOR TO PRINTING THE LESSOR'S STATEMENTS." AT 9,10 
WRITE "ENSURE A BACKUP COPY OF THE DATABASE HAS BEEN MADE." AT 11,10 
WRITE "DO YOU WANT TO PROCEED? ey) SUE ool She 
m@eeeiN YOURANS USING " " AT 13,50 
IF YOURANS = N THEN 

GOTO BAILOUT 
ENDIF 


NEWPAGE 

Melle "ENSURE PRINTER IS READY." AT 10,25 

WRITE "PRESS ANY KEY TO BEGIN LESSOR STATEMENTS. AT LD LO 
PAUSE 


NEWPAGE 
Weelie “WORKING ON LESSOR STATEMENTS." AT 10,20 
WeaTE “WHY NOT TAKE A COFFEE BREAK." AT 12,20 


*(-- Print lessor statements and compute lease payment ) 
SwOEUL PRINTER 
sea NULL ' " 
SET POINTER #1 STATUS1 FOR A/C_REC WHERE LEAS_RAT EXISTS 
WHILE STATUS1 = O THEN 
SET VARIABLE TEMPNUM1 TO A/C_NUM IN #1 
COMPUTE LABOR AS SUM LABR_CHG FROM A/CMAINT WHERE A/C = .TEMPNUM1 
COMPUTE PART AS SUM PART_CHG FROM A/CMAINT WHERE A/C_ uM = .TEMPNUM1 
SET VARIABLE ALLMAINT TO .LABOR + .PART 
CHANGE TOTMAINT TO .ALLMAINT IN A/C_HRS WHERE A/C_NUM = .TEMPNUM1 
Perl LES_STMT WHERE A/C_NUM = .TEMPNUM1 
PRINT MAINT WHERE A/C_NUM = .TEMPNUM1 
*(-- Determine lease payment due) 
SET VARIABLE VTIME TO HOBLEASE IN A/C_HRS WHERE A/C_NUM = .TEMPNUM1 
SET VARIABLE VRATE DOLLAR 
SET VARIABLE VRATE TO LEAS_RAT IN #1 
SET VARIABLE VAMOUNT DOLLAR 
SET VARIABLE VAMOUNT TO .VTIME X .VRATE 
CHANGE LEASEAMT TO .VAMOUNT IN RC HRS WHERE A/C_NUM = .TEMPNUM1 
k(-- Determine lease payment due completed) 
NEXT #1 STATUS1 
ENDWHILE *(-- Print lessor statements) 
GUEPUIL SCREEN 
pe. NULL -O- 


NEWPAGE 
feeete, LESSOR STATEMENTS COMPLETED." AT 7,20 
ae "PRESS ANY KEY TO RETURN TO MENU" AT Oe 5 


LABEL Bailout 
SET MESSAGES ON 
SET ERROR MESSAGES ON 


RETURN 
*(* END OF LES_STMT.CMD ) 
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